R ggplot2 - 在直方图条中显示值

Question

使用数据框df和列col_name，我会生成如下的直方图。

ggplot(df, aes_string(x=col_name)) + 
    geom_histogram(aes(y=..density..),
                   binwidth=1,
                   colour="black", fill="white")

这给了我一个如下的直方图。我需要改变这两件事。

1. 显示每个栏内顶部的密度值
2. 将密度值更改为百分比 - 而不是0.4，显示40％