dlplyのコードの書き方をご指導お願いします

Question

数千人規模の健診データを用いてdlplyで解析を行おうとしております。
飲酒量(alc_ryou)をlight,mid,heavyでラベリングしているので、
各群で身長の中央値、四分位点を計算して箱ひげ図を作成したく思います。

発生している問題

上記コードを実行すると中央値はかえってきますが、
四分位点は却ってこず、エラーメッセージは表示されません。

該当のソースコード

df%>%
  dlply( 
    .(alc_ryou),
    function(x){
      median <-median(x$身長,na.rm=TRUE)
      quantile<-quantile(x$身長,na.rm=TRUE)
      return(median)
      return(quantile)
      boxplot<-boxplot(x$身長)
      return(boxplot)
    }
  )

具体的にどのようなコードに変えれば、昨日するのかご教示の程宜しくお願い申し上げます。