ggplot2 geom_density 和 geom_histrogram 在一个图中

Question

如何制作一个所有条形加起来为 1 的直方图，并在其上方添加一个适合的密度层？

set.seed(1234)
df <- data.frame(
  sex=factor(rep(c("F", "M"), each=200)),
  weight=round(c(rnorm(200, mean=55, sd=5),
                 rnorm(200, mean=65, sd=5)))
  )

（取自：http://www.sthda.com/english/wiki/ggplot2-density-plot-quick-start-guide-r-software-and-data-visualization）

ggplot(df, aes(x=weight, color=sex, fill=sex)) + 
 geom_histogram(aes(y=..density..), alpha=0.5, 
                position="identity")+
 geom_density(alpha=.2) 

但是当我将aes(y=..density..) 更改为aes(y=..scaled..) 时，我得到一个错误。

如果我将这个示例与我的（大）数据一起使用，密度会上升到 120。 所以基本上是这样的： ![酒吧]http://www.sthda.com/sthda/RDoc/figure/easy-ggplot2/ggplot2-histogram-multiple-groups3.png 具有不同的 y 轴。 （使一种类型的所有条形加起来为 1）

我不确定使用 geom_smooth 在统计上是否合法？

Answer 1

尝试使用y = ..density../sum(..density..)：

set.seed(1234)
df <- data.frame(
    sex=factor(rep(c("F", "M"), each=200)),
    weight=round(c(rnorm(200, mean=55, sd=5),
                   rnorm(200, mean=65, sd=5)))
)

library(ggplot2)

ggplot(df, aes(x=weight, color=sex, fill=sex)) + 
    geom_histogram(aes(y=..density../sum(..density..)), alpha=0.5, 
                   position="identity")+
    geom_density(alpha=.2)