如何使用 Python ggplot2 在直方图上叠加密度图？ [关闭]

Question

我的问题是关于以下代码的演示

我的搭档用 python 做到了，条形更多，图表更高，无需调整，就像我在这里所做的那样，可以在 R 中做同样的事情

我的看起来一点也不像我怎么能做到这种审美 即使没有调整 bin 和 binwith，我也尝试过秤，但仍然无法获得他们想要的一致性

我的代码：

library(dplyr)
library(ggplot2)
m1<-as.data.frame(replicate(100, rnorm(49,2,3))) 
mm1<-m1 %>% summarise_if(is.numeric, mean) #calcula la media del dataframe
rownames(mm1)="medias" #cambia el nombre de 1 por  "medias"
mm1<-t(mm1) #transpone el dataframe
mm1<-as.data.frame(mm1) #lo convierte en un dataframe
h0<-ggplot(mm1,mapping =   aes(x=medias)) #ingresa los datos para graficar
h1<-h0+geom_histogram(fill="aquamarine4",aes(y=2*(..density..)/sum(..density..)),binwidth =0.45 ,color="white") 
h2<-h1+stat_function(mapping = aes(colour = "N(2,3/7)"),fun = dnorm,args = list(mean = 2,sd = 3/7))
h3<-h2+stat_function(mapping = aes(colour = "N(2,3"),fun = dnorm,args = list(mean = 2,sd = 3))
h4<-h3 +labs(x = "Medias", y= "Escala",title = "Grafico para muestras tamaño 49")
h4

Answer 1

如果有 python 代码而不只是一个图像会很好。计算密度时，密度值由 bin 宽度决定。在 python 图中，bin 从 0 运行到 4，因此您需要设置它并调用 ..density..，就像在 R 中这样：

h0 + geom_histogram(aes(y=..density..)) + 
stat_function(aes(colour = "N(2,3/7)"),fun = dnorm,args = list(mean = 2,sd = 3/7))+
stat_function(aes(colour = "N(2,3"),fun = dnorm,args = list(mean = 2,sd = 3)) + xlim(c(0,4))