将密度曲线添加到百分比直方图[重复]

Question

我有一个 Y 轴百分比的直方图：

    df <- data.frame(V1 = rnorm(100))
    ggplot(df, aes(x = V1)) +  
  geom_histogram(aes(y = 100*(..count..)/sum(..count..)))+geom_density()

我尝试使用 geom_density() 添加密度曲线，但它的百分比比例似乎错误。我该如何解决这个问题？

Answer 1

你可以使用..density..

代码

df %>% 
  ggplot(aes(x = V1)) +  
  geom_histogram(aes(y = ..density..))+
  geom_density()

输出