有一个前题，那就是，这里我们并不需要真实的数据分布曲线，只是希望得到一条曲线，可以拟合柱状图的高度就可以了。如果知道分布公式了，可以直接使用分布公式计算出拟合曲线。
我们使用的办法是使用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") |
