试图将正态分布曲线添加到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)