- 代码清单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",