Метки крайних значений в geom_boxplot

Я пытаюсь добавить метки для экстремальных значений (выбросов или нет) на графиках geom_box. Я нашел этот вопрос, который почти точно похож на мой geom_boxplot ] Ответ, предоставленный yonicd, почти работает для меня:

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))

метки для выбросов не отображаются. Как можно это исправить?