习题2.1（1）简单频数散布表：工作总结人大R语言统计学鉴于R（第3版）例题和习题数据（公然资源）exercisech2exercise2_1.RData)summary(exercise2_1)电信业:38航空业:19男:58女:62不满意:75满意:45金融业:26旅行业:37二维列联表：mytable1addmargins(mytable1)#增添界限和不满意满意Sum电信业251338航空业12719金融业111526旅行业271037Sum7545120三维列联表：mytable1count1count2count3par(mfrow=c(1,3),mai=c(0.7,0.7,0.6,0.1),cex=0.7,cex.main=0.8)barplot(count1,xlab=行业,ylab=频数)barplot(count2,xlab=性别,ylab=频数)barplot(count3,xlab=满意度,ylab=频数)帕累托图：count1 par(mai=c(0.7,0.7,0.1,0.8),cex=0.8) xbartext(bar,x,labels=x,pos=3)#条形图增添数值y par(new=T) plot(y,type=b,lwd=1.5,pch=15,axes=F)axis(4)#右Y轴 mtext(积累频次,side=4,line=3) mtext(积累散布曲线,line=-2.5,cex=0.8,adj=0.75)复式条形图：mytable1barplot(mytable1,xlab=行业,ylab=频数,legend=rownames(mytable1),args.legend=list(x=13),beside=T)脊形图：library(vcd)spine(行业满意度,data=exercise2_1,xlab=满意度,ylab=行业,margins=c(4,3.5,1,2.5)马赛克图：mosaicplot(性别+行业+满意度,data=exercise2_1,col=2:3)（ 3）饼图：count1name percent label1par(pin=c(3,3),mai=c(0.1,0.4,0.1,0.4),cex=0.8)#圆的大小pie(count1,labels=label1,init.angle=90)扇形图：count1 name percent labs library(plotrix) fan.plot(count1,labels=labs,ticks=200)2.2（1）分10组，绘制频数散布表工作总结人大R语言统计学鉴于ech2exercise2_2.RData)library(actuar)v gd1 table1dhist(d,breaks=10,xlab=寿命,ylab=频数)茎叶图：stem(exercise2_2$灯泡寿命)Thedecimalpointis2digit(s)totherightofthe|26|028|96830|055788235679932|788899013456936|03356660002444556778838|2245556667005566940|0010172.3（1）箱线图：工作总结人大R语言统计学鉴于R（第3版）例题和习题数据（公然资源）exercisech2exercise2_3.RData)boxplot(exercise2_3,-1,xlab=城市,ylab=气温,cex.lab=0.8,cex.axis=0.6)#从第二列开始，到最后小提琴图：library(vioplot)x1x2x3x4vioplot(x1,x2,x3,x4,names=c(北京,沈阳,上海,南昌)（2）点图：library(reshape)table1_1table1_1dotchart(table1_1$温度,groups=table1_1$月份),variable_name=温度)城市,xlab=温度,pch=20)城市) library(lattice) dotplot(温度城市,data=table1_1,pch=19)