r - 将密度曲线拟合到 R 中的直方图

Question

R中是否有函数可以将曲线拟合到直方图？

假设您有以下直方图

hist(c(rep(65, times=5), rep(25, times=5), rep(35, times=10), rep(45, times=4)))

看起来很正常，但其实是歪斜的。我想要拟合一条倾斜的正态曲线以环绕该直方图。

这个问题相当基本，但我似乎无法在互联网上找到R的答案。

Answer 1

如果我正确理解你的问题，那么你可能需要密度估计和直方图:

X <- c(rep(65, times=5), rep(25, times=5), rep(35, times=10), rep(45, times=4))
hist(X, prob=TRUE)            # prob=TRUE for probabilities not counts
lines(density(X))             # add a density estimate with defaults
lines(density(X, adjust=2), lty="dotted")   # add another "smoother" density

稍后编辑:

这是一个稍微更装扮的版本:

X <- c(rep(65, times=5), rep(25, times=5), rep(35, times=10), rep(45, times=4))
hist(X, prob=TRUE, col="grey")# prob=TRUE for probabilities not counts
lines(density(X), col="blue", lwd=2) # add a density estimate with defaults
lines(density(X, adjust=2), lty="dotted", col="darkgreen", lwd=2) 

以及它生成的图表: