r - 如何将直方图和密度图与 Y 轴上的数字而不是密度重叠

Question

我在 ggplot2 中创建了直方图，我想将它与相同数据的密度线重叠。重要的是，我不想将直方图转换为密度值，而是想在 y 轴上保留 N(数字)。 有什么方法可以在不变换直方图的情况下将直方图和密度图重叠，而是按比例放大密度曲线？

此数据的直方图:

相同数据的初始密度图:

所需的叠加层，但在 Y 轴上具有密度而不是计数:

Answer 1

您需要使用 stat_density 创建的 ..count.. 参数，然后按 bin 宽度缩放它。

library(ggplot2)
set.seed(15)
df <- data.frame(x=rnorm(500, sd=10))
ggplot(df, aes(x=x)) + 
  geom_histogram(colour="black", fill="white", binwidth = 5 ) +
  geom_density(aes(y=..count..*5), alpha=.2, fill="#FF6666")