本⽂⽤到的数据可以去这个⽹址下下载
练习题
2）表3-2是2004年⼴东省各市⾼新技术产品情况。试对资料按照本章介绍的多元图⽰⽅法做直观分析
library(openxlsx)
d3.2= read.xlsx('mvexer5.xlsx',sheet ='E3.2',rowNames =TRUE)
#设定参数rowNames=TRUE，即可将第⼀列字符变量变成数据框的⾏名，供后期使⽤
d3.2
#在Excel⽂件中mvexer5.xlsx的表单d3.2中选择A1：E22，并复制到剪切板
dat = read.table("clipboard",header = T)#将剪切板数据读⼊数据框dat中
dat
#数据框标记转换函数
msa.X <-function(df){#将数据框第⼀列设置为数据框⾏名 X = df[,-1]#删除数据框df的第⼀列并赋给X
rownames(X)= df[,1]#将df的第⼀列值赋给X的⾏名
X #返回新的数值数据框=return（X）
}
d3.2= msa.X(dat)
d3.2
练习题mv
barplot(apply(d3.2,2,mean))#按⾏作均值条形图
barplot(apply(d3.2,1,mean),las =3)#修改横坐标标记
barplot(apply(d3.2,2,mean))#按列作均值条图
barplot(apply(d3.2,2,median))#按列作中位数条图
barplot(apply(d3.2,2,median),col =1:8)#按列取⾊
boxplot(d3.2)#按列作箱尾图
发布评论