r - geom_boxplot の極値ラベル

Question

geom_box プロットに極端な値 (外れ値かどうか) のラベルを追加しようとしています。私はこの質問を見つけました。これは私のものとほぼ同じです[ geom_boxplot の極端な値のラベル ggplot2 ]

df=rbind(data.frame(id=rep("1",100),var=paste0("V",seq(1,100)),
         val=rnorm(100,0,5)),
         data.frame(id=rep("2",100),var=paste0("V",seq(1,100)),
         val=rnorm(100,0,3)))


df_bound=df%.%group_by(id)%>%do(.,data.frame(val=boxplot.stats(.$val)$out))
df_bound=left_join(df_bound, df, by=c("id","val"))

ggplot(df,aes(x=id, y=val, fill=id, label=var)) + geom_boxplot() +
geom_point(aes(group=id), data=df_bound)+
geom_text(aes(group=id), data=df_bound, hjust=-1, size=4)

[ $out] を置き換えるだけでよいことは明らかです

 df_bound=df%.%group_by(id)%>%do(.,data.frame(val=boxplot.stats(.$val)$out))

外れ値の代わりに極端な値を取得します。私が使用する場合

df_bound=df%.%group_by(id)%>%do(.,data.frame(val=boxplot.stats(.$val)$stats))

外れ値のラベルは表示されません。どうすればそれを修正できますか？