r - ggplot2:带正态曲线的直方图

Question

我一直在尝试使用 ggplot 2 在我的直方图上叠加一条正态曲线。

我的公式:

data <- read.csv (path...)

ggplot(data, aes(V2)) + 
  geom_histogram(alpha=0.3, fill='white', colour='black', binwidth=.04)

我尝试了几件事:

+ stat_function(fun=dnorm)  

....没有改变任何东西

+ stat_density(geom = "line", colour = "red")

...在 x 轴上给了我一条直线红线。

+ geom_density()  

对我不起作用，因为我想将频率值保留在 y 轴上，并且不需要密度值。

有什么建议？

提前感谢您的任何提示!

找到解决方案!
+geom_density(aes(y=0.045*..count..), colour="black", adjust=4)

Answer 1

想我明白了:

set.seed(1)
df <- data.frame(PF = 10*rnorm(1000))
ggplot(df, aes(x = PF)) + 
    geom_histogram(aes(y =..density..),
                   breaks = seq(-50, 50, by = 10), 
                   colour = "black", 
                   fill = "white") +
stat_function(fun = dnorm, args = list(mean = mean(df$PF), sd = sd(df$PF)))