r - geom_density匹配geom_histogram binwitdh

我想在ggplot2的分布条图中添加一条线以显示平均分布，但遇到了麻烦。

ggplot调用如下：

ggplot(x, aes(date_received)) +
    geom_histogram(aes(y = ..count..), binwidth=30) +
    geom_density()

为我提供了每30天观察一次的直方图条，但是密度线正在跟踪每一天的计数，如下所示（底部的静态数据来自geom_density。



是否可以添加geom_density图层以覆盖一行，该行将显示30天观察组计数的平均值，例如binwidth中的geom_histogram。

任何帮助表示赞赏。

最佳答案

根据此e-mail中给出的Brian S. Diggs的答案，您应将..count..中geom_density(的值乘以binwidth=中geom_histogram()的值。

set.seed(123)
df<-data.frame(x=rnorm(1000,100,15))

ggplot(df,aes(x))+
      geom_histogram(binwidth = 2.5)+
      geom_density(aes(y=2.5 * ..count..))

关于r - geom_density匹配geom_histogram binwitdh，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/55938808/