ggplot: Mevcut histogram ve dağıtma tabakaları I gerçekleştirmek için gereken

Question

görev stat_function kullanılarak normal dağılım eğrisi: eklenmesini 1. beraberlik, x = Veri/y = yoğunluk histogramı - belirli bir veri kümesi için 2. çekme dağılımı eğrisi yapılır - yapılması 3. Bu veri kümesi için mükemmel normal dağılım eğrisini çizin (kırmızı çizgi) - problemi Problemin 2. durum göstergesinde olduğunu varsayalım.

Kod çalışma mümkün olduğu/herhangi hazırlıkları o w: Ben İşte yaklaşık gerekenler

ne elde İşte

data <- data.frame(c(runif(30,1,50)),c(runif(30,50,1))) 
g.data <- data[,1] 

graph <- ggplot(data, aes(g.data)) 
graph <- graph + 
geom_histogram(aes(y = ..density..), binwidth = 2, fill = 'pink') + 
labs(x = 'Data', y ='Density') + 
stat_function(fun = dnorm, args = list(mean = mean(g.data, na.rm = T), 
sd = sd(g.data, na.rm =T)), colour ='black', size =1) + 
theme(legend.position = 'none') + 
stat_function(fun = dnorm, colour = "red", args = list(mean = mean(g.data))) 
graph 

, mükemmel norm. dağılım

Answer 1

Normal dağılımda 2 parametre vardır: ortalama ve standart sapması. Burada sadece dnorm için ortalama sağlayın, bu yüzden sd = 1 varsayar.

A sağladığınız kod versiyonudur düzeltilmiş:

data <- data.frame(c(runif(30,1,50))) 
ggplot(data, aes(data[,1])) + 
    geom_histogram(aes(y = ..density..), binwidth = 2, fill = 'pink') + 
    labs(x = 'Data', y = 'Density') + 
    stat_function(fun = dnorm, 
     args = list(mean = mean(data[,1], na.rm = TRUE), 
        sd = sd(data[,1], na.rm = TRUE)), 
     colour = 'black', size = 1)