TAST：完成教材的54页的练习题二的2，数据文件：“习题数据.xls”（表单E3.2)

代码：

将习题数据中的E3.2复制在剪贴板上，

a<-read.table("clipboard",header=T)#将剪贴板的数据读到a
head(a)
barplot(apply(a,1,mean),col=rainbow(30),las=2)#对a的数据按行求均值，画条形图
pie(apply(a,2,mean),legend = colnames(a))#按列做均值饼图
boxplot(a,las=1)#画箱图
stars(a,full=T,draw.segments=T,key.loc=c(12,1.5))#画星图
install.packages("aplpack")#安装aplpack包
library(aplpack)#加载aplpack包
faces(a[c(1,3,2,19),])#取数据画脸谱
faces(a,ncol.plot=5) ##按每行5个做脸谱图
library(mvstats)#在线安装mvstats安装包
plot.andrews(a[c(1,3,17,19),])#添加调和曲线
title("调和曲线图")#添加标题