R语言绘制条形图

数据

> counts

  None   Some Marked 
    42     14     28 

简单条形图

最基本用法：barplot()

> barplot(counts, main = "simple bar plot", xlab = "improvement", ylab = "frequency")

image.png

水平条形图

> barplot(counts, main = "hirizontal bar plot", xlab = "frequency", ylab = "improvement", horiz = TRUE)

image.png

数据

> counts
        
         Placebo Treated
  None        29      13
  Some         7       7
  Marked       7      21

堆砌条形图

> barplot(counts, main = "stacked bar plot", xlab = "treatment", ylab = "frequency", col=c("red", "yellow", "green"), legend=rownames(counts))

image.png

棘状图

> spine(counts, main = "spinogram example")

image.png

分组条形图

> barplot(counts, main = "grouped bar plot", xlab = "treatment", ylab = "frequency", col=c("red", "yellow", "green"), legend=rownames(counts), beside = TRUE)

image.png

数据

> states = data.frame(state.region, state.x77)

> means = aggregate(states$Illiteracy,by=list(state.region),mean)

> means
        Group.1        x
1     Northeast 1.000000
2         South 1.737500
3 North Central 0.700000
4          West 1.023077

均值条形图

> barplot(means$x, names.arg = means$Group.1, main = "mean illiteracy rate")

image.png