1、获取需要研究的数据集。这里从spss中读取stu娄多骋能_data的数据。library(foreign) #加载程序包stu_data=read.spss(file="stu_data.s锾攒揉敫av",to.data.frame=TRUE)head(stu_data)str(stu_data) #查看变量属性该数据主要有group、Math、English、Chinese、Score几个变量
2、绘制概率密度直方图。hist(stu_data$Math,freq=FALSE,labels=TRU呶蓟鹭毵E,main="Histogram of Density stu_data$Math")#绘制直方图，但freq=TRUE时绘制的是频数直方图lines(density(stu_data$Math))#添加概率密度曲线str(hist(stu_data$Math,freq=FALSE,labels=TRUE,main="Histogram of Density stu_data$Math"))#获取直方图的输出值从图中可以看出Math被分为8个分组，变量值主要集中在80-90之间。
3、绘制累计分布曲线。Ecdf(stu_data$Math,lty=2,group=stu_data$group,col=2:3,xlab="Math",main="Cumulative Distribution of Math by group") #按group分类绘制图形Ecdf(stu_data$Math,add=TRUE) #添加总体曲线
4、绘制数值型变量的箱线图。boxplot(stu_data[,3:6],main=" Boxplot of stu_data")#绘制各数值变量的箱线图从结果中可以看出，Math变量存在一个异常低值。
5、绘制分类变量条形图。stu_data250=stu_data[stu_data$Score>=250,]tab_data250=table(stu_data250$group)#统计各个班级score在250分以上的人数barplot(tab_data250,main="Score>=250 ") #绘制条形图从结果中可以看出，class1的优生要多一点。
6、绘制点阵图。dotchart(tab_data250,main="Score>=250 (dotplot)")
7、绘制饼图。percent=round(tab_data250/sum(tab_data250*100),2)#计算百分比label=paste(paste(c("class1","class2"),":"),percent,"%",sep="")pie(percent,labels=label,main="Pie Chart ofExcellent students",col=c("lightgray","lightblue")) #绘制百分比饼图
