R语言利用barplot()制作条形图的各种实例
前言
函数barplot()可以绘制条形图,其格式为
barplot(height)
height是一个向量或者矩阵,使用horiz=TRUE可以生成一个水平的条形图,
例子
1,用条形图统计分类变量的频数
注意条形图常用来统计分类变量每一钟元素的频数,此时可以运用table()进行处理分类变量,其可以统计分类变量的各个元素的频次。处理后的结果为table格式而barplot()可以识别table格式
table()函数可以统计列各种元素出现的次数
counts<-table(Arthritis$Improved) counts barplot(counts,xlab="Improvement",ylab="Frequency",main="SimpleBarPloy")
例子2
生成水平的条形图
barplot()参数horiz可以指定图形是否为水平的条形图
注意生成的水平的条形图时,x,y轴的名称不会跟着变换所以x,y轴的名称应同时跟着变换
barplot(counts,horiz=TRUE,ylab="Improvement",xlab="Frequency",main="SimpleBarPloy")
例子3,使用plot()函数绘制条形图
如果像上面的例子那样,绘制的类别型变量是一个因子或有序因子,可以直接使用plot()函数快速创建条形图,这样就不用再通过table()函数进行处理变量。图片效果与例子1相同
plot(Arthritis$Improved,xlab="Improvement",ylab="Frequency",main="SimpleBarPloy") #绘制水平的条形图 plot(Arthritis$Improved,horiz=TRUE,xlab="Improvement",ylab="Frequency",main="SimpleBarPloy")
例子3绘制堆砌条形图和分组条形图
如果height是一个矩阵而不是一个向量,则绘制结果将是一幅堆砌条形图或分组条形图
当beside=FALSE(默认值),则生成堆砌条形图–矩阵的每一列都将生成一个条形
当beside=TRUE,则生成分组条形图–矩阵中的每一列都表示一个分组,各列的中值将并列而不是堆砌
注意barplot()中的height要么是向量要么是矩阵,不能是data.frame但是可以是table格式
opar<-par(no.readonly=TRUE) par(opar) par(mfrow=c(1,2)) counts<-table(Arthritis$Improved,Arthritis$Treatment) counts #绘制堆砌条形图 barplot(counts,main="StackedBarPlot",xlab="Treatment",ylab="Frequency", col=c("red","yellow","green"),legend=row.names(counts)) #绘制分组条形图 barplot(counts,beside=TRUE,main="StackedBarPlot",xlab="Treatment",ylab="Frequency", col=c("red","yellow","green"),legend=row.names(counts))
例子4
使用数据整合函数aggregate()并将结果传递给barplot()函数,来创建表示均值,中位数,标准值等条形图
能够如此作图的原因是因为我们可以向作图函数barplot()只传递一个数值向量,再通过参数names.arg指定横坐标的标签,(arg为英文自变量的含义)
这样我们我们输入各个分组后各组的平均值的值向量、在通过参数names.arg指定各组名称为横坐标标签就可以制作成一个条形图了
#使用数据整合函数aggregate()并将结果传递给barplot()函数,来创建表示均值,中位数,标准差等条形图 #生成要作图的数据框 states<-data.frame(state.region,state.x77) #根据列state.region对列states$Illiteracy进行分组并求每组的均值。 #by=list(state.region)指定分组变量 #states$Illiteracy为被分组的变量 #FUN=mean是指定处理被分组的变量的函数 means<-aggregate(states$Illiteracy,by=list(state.region),FUN=mean) #设定数值只能保留2位小数 options(digits=2) #barplot()函数可以输入没有索引的向量,但是这个时候就没有横坐标的标签, #这时就需要通过names.arg参数指定(arg为自变量的意思) par(opar) barplot(means$x,names.arg=means$Group.1) title("MeanIlliteracyRate")
例子5,条形图的微调
par(mar=c(5,8,4,2)) #las调整标签的参数,2为水平,0为垂直 par(las=2) library(vcd) counts<-table(Arthritis$Improved) barplot(counts, main="TreatmentOutcome", horiz=TRUE, #调整标签字体大小 cex.names=0.8, #修改标签文本 names.arg=c("NoImprovement","SomeImprovement","MarkedImprovement"))
例子6,棘状图
library(vcd) attach(Arthritis) counts<-table(Treatment,Improved) spine(counts,main="SpinogramExample")
结束总结
到此这篇关于R语言利用barplot()制作条形图的文章就介绍到这了,更多相关R语言barplot()条形图内容请搜索毛票票以前的文章或继续浏览下面的相关文章希望大家以后多多支持毛票票!
声明:本文内容来源于网络,版权归原作者所有,内容由互联网用户自发贡献自行上传,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任。如果您发现有涉嫌版权的内容,欢迎发送邮件至:czq8825#qq.com(发邮件时,请将#更换为@)进行举报,并提供相关证据,一经查实,本站将立刻删除涉嫌侵权内容。