geom_histogram和数据标签

Question

这似乎是一个简单的问题，但我无法在任何地方找到答案。

绘制直方图，并希望为箱子添加数据标签。这是我设法得到的和可怕的结果（代码是完全可重现的）：

df=data.frame(ToothGrowth)
require(ggplot2)
ggplot(data=df, aes(x=len, y=..count.., label=..count..))+
        geom_histogram(binwidth=5, aes(fill=..count..))+
        geom_text(stat="bin", vjust=-1)

结果图表：

如何修复数据标签，使其成为：

1）出现在每个垃圾箱上方？

2）显示垃圾箱的数量？