正規分布曲線をggplotに追加しようとしていて、うまくいきません。

Question

私はこれに関する他の答えを見てみましたが、混乱しました。

私はいくつかのサンプルデータのヒストグラムを持っていますが、これは大丈夫です。私はそれの上に正規分布曲線をオーバーレイして比較しようとしています。私はggplotを使用しています。私は曲線のためのstat_functionを使用しようとしているだけでは表示されません。

この部分は混乱しているかもしれませんが、stat_functionのargsの両方で、基になるヒストグラムとは独立しているはずです。あるいは、それらの1つが同じである必要があります。私はちょうど他のいくつかのサンプルコードを見ています、そして、その場合ヒストグラムから平均を使用し、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

赤緑色覚異常は、最も一般的な遺伝性色覚異常であるので、私はあなたのための色は赤と緑に変更しました。私は密度のプロットの帯域幅がヒストグラムbinwidthのそれと一致するように数を.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)