TAST：完成教材的54頁(yè)的練習(xí)題二的2截碴，數(shù)據(jù)文件：“習(xí)題數(shù)據(jù).xls”（表單E3.2)
代碼：
將習(xí)題數(shù)據(jù)中的E3.2復(fù)制在剪貼板上，
a<-read.table("clipboard",header=T)#將剪貼板的數(shù)據(jù)讀到a
head(a)
barplot(apply(a,1,mean),col=rainbow(30),las=2)#對(duì)a的數(shù)據(jù)按行求均值评姨，畫條形圖
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),])#取數(shù)據(jù)畫臉譜
faces(a,ncol.plot=5) ##按每行5個(gè)做臉譜圖
library(mvstats)#在線安裝mvstats安裝包
plot.andrews(a[c(1,3,17,19),])#添加調(diào)和曲線
title("調(diào)和曲線圖")#添加標(biāo)題
