R语言利用barplot()制作条形图的各种实例

counts <- table(Arthritis$Improved)
counts 
barplot(counts,xlab = "Improvement",ylab = "Frequency",main = "Simple Bar Ploy")

barplot(counts,horiz = TRUE ,ylab = "Improvement",xlab = "Frequency",main = "Simple Bar Ploy")

plot(Arthritis$Improved,xlab = "Improvement",ylab = "Frequency",main = "Simple Bar Ploy")
#绘制水平的条形图
plot(Arthritis$Improved,horiz=TRUE,xlab = "Improvement",ylab = "Frequency",main = "Simple Bar Ploy")

opar <- par(no.readonly = TRUE)
par(opar)
par(mfrow=c(1,2))
counts <- table(Arthritis$Improved,Arthritis$Treatment)
counts
#绘制堆砌条形图
barplot(counts,main = "Stacked Bar Plot",xlab = "Treatment",ylab="Frequency",
    col = c("red","yellow","green"),legend=row.names(counts))
#绘制分组条形图
barplot(counts,beside = TRUE,main = "Stacked Bar Plot",xlab = "Treatment",ylab="Frequency",
    col = c("red","yellow","green"),legend=row.names(counts))

#使用数据整合函数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("Mean Illiteracy Rate")

par(mar=c(5,8,4,2))
#las调整标签的参数，2为水平，0为垂直
par(las=2)
library(vcd)
counts <- table(Arthritis$Improved)
barplot(counts,
    main = "Treatment Outcome",
    horiz = TRUE,
    #调整标签字体大小
    cex.names = 0.8,
    #修改标签文本
    names.arg = c("No Improvement","Some Improvement","Marked Improvement"))

library(vcd)
attach(Arthritis)
counts <- table(Treatment,Improved)
spine(counts,main="Spinogram Example")