使用geom_density结合geom_histogram绘制趋势线

Question

我试图首先绘制直方图，然后我添加geom_density（）以获得趋势线，但是我得到的是与x轴平行的平行线而不是趋势线。

Main()

Answer 1

您必须在aes(y = ..count..)中使用geom_density()才能使它们达到相同的比例（否则密度曲线下的面积约为1且赢得匹配的直方图比例）。

# Generate data
MyData <- data.frame(X = rnorm(100, 70, 10))
# Plot
library(ggplot2)
ggplot(MyData, aes(X)) +  
    geom_histogram(breaks = seq(40, 100, 10),
                   col = "red", fill = "blue", alpha = 0.2) + 
    geom_density(aes(y = ..count..))