有一个前题,那就是,这里我们并不需要真实的数据分布曲线,只是希望得到一条曲线,可以拟合柱状图的高度就可以了。如果知道分布公式了,可以直接使用分布公式计算出拟合曲线。
我们使用的办法是使用loess回归后计算出一条拟合曲线。
> h<-hist(mtcars$mpg, breaks=12) > lo <- loess(h$counts~h$mids) > x<- seq(min(h$breaks), max(h$breaks), (max(h$breaks)-min(h$breaks))/1000) > lines(x, predict(lo, x), col="red") |