diff(h$mids[1:2])是组距
hist()默认画的是频数图，即纵轴为频数
而density只是密度，密度约为频率/组距 ，所以讲密度图像画到频数图中要进行伸缩变化，频数=频率/组距*组距*样本总数=密度*组距*样本总数，即yfit<-yfit*diff(h$mids[1:2])*length(x)

若果在hist中添加freq=FALSE即可画频率/组距图，直接对应到密度图
给个简单例子吧

x=rnorm(1000)
h1=hist(x,breaks=20)   #频数图
f1=function(x){dnorm(x)*diff(h1$mids[1:2])*1000}   #频数=频率/组距*组距*总数~密度*组距*总数
curve(f1,from=min(x),to=max(x),add=TRUE)


h2=hist(x,breaks=20,freq=FALSE)    #频率/组距图：频率/组距可视为密度，面积和为1
f2=function(x){dnorm(x)}
curve(f2,from=min(x),to=max(x),add=TRUE)

不好意思，前面不知道为啥，排版很乱了：

diff(hmids[1:2])是组距hist()默认画的是频数图，
即纵轴为频数而density只是密度，密度约为频率/组距，
所以将密度图像画到频数图中要进行伸缩变化，
频数=频率/组距∗组距∗样本总数=密度∗组距∗样本总数，
即yfit<−yfit∗diff(hmids[1:2])*length(x)

你好 ，我大致明白了，但是，为什么要用diff(h￥mids[1:2])来确定组距呢？