R语言绘制平均文盲率排序的条形图与最终治疗效果图

library(vcd)
states<-data.frame(state.region,state.x77)
means<-aggregate(states$Illiteracy,by=list(state.region),FUN=mean)
means
means<-means[order(means$x),]
means
barplot(means$x,names.arg=means$Group.1)
title("美国各地区平均文盲率排序的条形图")

means
Group.1 x
1 Northeast 1.000000
2 South 1.737500
3 North Central 0.700000
4 West 1.023077
means<-means[order(means$x),]
means
Group.1 x
3 North Central 0.700000
1 Northeast 1.000000
4 West 1.023077
2 South 1.737500

par=(mar=c(5,8,4,2))
par(las=2)
counts<-table(Arthritis$Improved)
barplot(counts,main=" 最终治疗结果",horiz=TRUE,cex.names=0.8,
        names.arg=c(" 没有提高"," 有所提高","显著提高"))

R语言实战 Robert I.Kabacoff著 王小宁，刘撷芯，黄俊文等译----中国工信出版社 人民邮电出版社