x<-rnorm(50)
library(ISwR)
attach(juul)

4.2分布的图形展示

4.2.1直方图

hist(x)

mid.age<-c(2.5,7.5,13,16.5,17.5,19,22.5,44.5,70.5)#年龄
acc.count<-c(28,46,58,20,31,64,149,316,103)#事故率
age.acc<-rep(mid.age,acc.count)#隐循环，将age按count循环
brk<-c(0,5,10,16,17,18,20,25,60,80)#创建分割点向量
hist(age.acc,breaks = brk)#将分割点向量设为参数

#4.2.2经验累积分布
n<-length(x)#
plot(sort(x),(1:n)/n,type = "s",ylim = c(0,1))#参数s为阶梯图

#4.2.3Q-Q图
qqnorm(x)#

#箱式图
par(mfrow=c(1,2))#按行排列的1*2图
boxplot(IgM)#IgM的箱式图
boxplot(log(IgM))#对数箱式图

par(mfrow=c(1,1))#将图形参数调回一幅