准备工作
加载数据集
> load("E:/Statistics_with_R/example/ch2/example2_1.RData")
简单条形图
> count1<-table(example2_1$社区)
> count2<-table(example2_1$性别)
> count3<-table(example2_1$态度)
> par(mfrow=c(1,3), mai=c(0.7,0.7,0.6,0.1),cex=0.7, cex.main=0.8)
> barplot(count1, xlab='频数', ylab='社区', horiz=TRUE, main="(a)水平条形图", col=2:5)
> barplot(count2, xlab='频数', ylab='性别', main="(b)垂直条形图")
> barplot(count3, xlab='频数', ylab='态度', main="(c)垂直条形图")
效果图:
帕累托图
> count1<-table(example2_1$社区)
>