R-教材P110 条形图

• 代码清单6-2-1 堆砌条形图

install.packages("vcd")#装一次就行，但是每次使用时都要用labrary激活
library(vcd)

> counts<- table(Arthritis$Improved,Arthritis$Treatment)
> counts
        
         Placebo Treated
  None        29      13
  Some         7       7
  Marked       7      21
> barplot(counts,
+         xlab= "Improvement", ylab= "Frequency",
+         col= c("red","yellow","green"),
+         legend=rownames(counts))#以counts的行名称为每个条形图命名

• 代码清单6-2-2 分组条形图

> barplot(counts,
+         xlab= "Improvement",