試圖將正態分佈曲線添加到ggplot中，但它不起作用

Question

我試着查看一些其他的答案，但有些困惑。

我有一些樣本數據的直方圖，其圖表可以。爲了比較起見，我試圖在其上覆蓋正態分佈曲線。我正在使用ggplot。我正在嘗試爲曲線使用stat_function，並且它不會顯示。

這部分可能聽起來令人困惑，但是stat_function中的兩個參數應該獨立於底層直方圖，還是其中一個必須是相同的。我只是看一些其他示例代碼，在這種情況下，它看起來像他們使用直方圖的意思，並且sd被聲明（反之亦然）。

這裏是我的代碼：

sim_cnt<-1000 
lambda<-.2 
samp_sz<-40 
set.seed(222) 
mn<-1/lambda 
st_dv<-1/lambda 
mns<-sapply(1:sim_cnt,function(x){mean(rexp(samp_sz,lambda))}) 

library(ggplot2) 

g<-ggplot(data=data.frame(mns), aes(x=mns))+ geom_histogram(binwidth=.3, fill="red", color="green")+geom_vline(xintercept=mean(mns),size =1, col="black")+labs(x="Means")+ggtitle("Sample Distribution")+stat_function(fun=dnorm, color="pink",args=list(sd=.7905694,mean=5)) 
g 

Answer 1

我改變了紅色和綠色的你，因爲紅綠色盲是最常見的遺傳性色盲。我將計數乘以.3，以便密度圖的帶寬與直方圖帶寬的帶寬相匹配。

g<-ggplot(data=data.frame(mns), aes(x=mns))+ 
    geom_histogram(binwidth=.3, fill="red", color="blue")+ 
    geom_vline(xintercept=mean(mns),size =1, col="black")+ 
    labs(x="Means")+ ggtitle("Sample Distribution") 
g + stat_density(aes(y = .3 * ..count..), geom = "line", 
       color = "blue", size = 1)