直方图

hist(x)

#如下图
hist(mtcars$mpg)

hist(mtcars$mpg,
freq=FALSE,
breaks=12,
col="red",
xlab="Miles Per Gallon",
main="Histogram, rug plot, density curve")
rug(jitter(mtcars$mpg))                       #添加轴须图，
#是实际数据值的一种一维呈现方式，如果数据中有许多结，可以使用如下代码将数据打散rug(jitter(mtcars$mpg,amount=0.01))
#这样将每个数据点添加一个随机值(一个+-amount之间的均匀分布随机数)，避免重叠的点产生影响
#出现相同的值，称为结
lines(density(mtcars$mpg), col="blue", lwd=2) #添加密度曲线，而且是一个核密度估计

x <- mtcars$mpg
h<-hist(x,
breaks=12,
col="red",
xlab="Miles Per Gallon",
main="Histogram with normal curve and box")
xfit<-seq(min(x),max(x),length=40)            #添加正态曲线
yfit<-dnorm(xfit,mean=mean(x),sd=sd(x))
yfit <- yfit*diff(h$mids[1:2])*length(x)
lines(xfit, yfit, col="blue", lwd=2)
box()     #添加盒型