x<-rnorm(50)
library(ISwR)
attach(juul)
4.2分布的图形展示
4.2.1直方图
hist(x)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/f72c00e6bb5cfc7b8fe2dc4572eea907.png)
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)#将分割点向量设为参数
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/96b598694bda79959683a93cf7a819b2.png)
#4.2.2经验累积分布
n<-length(x)#
plot(sort(x),(1:n)/n,type = "s",ylim = c(0,1))#参数s为阶梯图
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/23375f0d88f69bf6131cee7d748155cc.png)
#4.2.3Q-Q图
qqnorm(x)#
#箱式图
par(mfrow=c(1,2))#按行排列的1*2图
boxplot(IgM)#IgM的箱式图
boxplot(log(IgM))#对数箱式图
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/072eccf7e3e27d71bacc39cdf57b7c74.png)
par(mfrow=c(1,1))#将图形参数调回一幅