将法线曲线叠加到直方图

Question

我重复50次rmrm，n = 100，平均值= 100，标准差= 25。然后绘制所有样本均值的直方图，但是现在我需要在直方图上覆盖一条法线。

x <- replicate(50, rnorm(100, 100, 25), simplify = FALSE)
x
sapply(x, mean)
sapply(x, sd)

hist(sapply(x, mean))

您知道是否可以在均值的直方图上覆盖一条法线吗？

谢谢

Answer 1

当通过设置weekend = function(n) if (n$Wday == 1 || n$Wday == 7) return 1 else return 0 来绘制密度而不是频率直方图时，我们可以用平均值的平均值覆盖正态分布的freq=FALSE。对于curve中的xlim，我们使用curve的平均值。

range

还可以绘制足够数量的正态分布，并将直方图与mean.of.means <- mean(sapply(x, mean)) r <- range(sapply(x, mean)) v <- hist(sapply(x, mean), freq=FALSE, xlim=r, ylim=c(0, .5)) curve(dnorm(x, mean=mean.of.means, sd=1), r[1], r[2], add=TRUE, col="red") 分布的lines重叠。

density

注意，我在答案中使用了500个平均值，因为与正态分布的比较可能会变得毫无意义。但是，您可以使用lines(density(rnorm(1e6, mean.of.means, 1))) 函数中的breaks=选项。

数据

histogram