统计学导论基于R语言第四章习题

统计学导论基于R语言第四章的习题相关代码如下：
1. 第一题代码：
exer1<-read.csv("D:/作业/统计学R/《统计学—基于R》（第4版）—例题和习题数据（公开资源）/exercise/chap03/exercise3_1.csv")
mean(exer1$网购金额) #平均数
sd(exer1$网购金额) #标准差
max(exer1$网购金额)-min(exer1$网购金额) #极差
IQR(exer1$网购金额,type=6) #四分位差

2. 第三题代码：
exer3<-read.csv("D:/作业/统计学R/《统计学—基于R》（第4版）—例题和习题数据（公开资源）/exercise/chap03/exercise3_3.csv")
par(mai=c(0.6,0.6,0.3,0.3),cex=0.7)
palette<-RColorBrewer::brewer.pal(3,"Set2")
vioplot(exer3[1:2],col=palette,main="小提琴图",xlab="性别",ylab="身高")

3. 第二题代码：
exer2<-read.csv("D:/作业/统计学R/《统计学—基于R》（第4版）—例题和习题数据（公开资源）/exercise/chap03/exercise3_2.csv")
library(vioplot)
par(mai=c(0.6,0.6,0.3,0.3),cex=0.7)
palette<-RColorBrewer::brewer.pal(3,"Set2")
names=c("方法A","方法B","方法C")
vioplot(exer2[1:3],col=palette,names=names,main="小提琴图",xlab="组装方法",ylab="产品数量")