#1.条形图
#1.1水平or竖直条形图 :向量绘图
library(vcd)
library(grid)
counts<- table(Arthritis$Improved)
str(counts)
> counts
None Some Marked
42 14 28
barplot(counts)#简单条形图
#1.2堆砌条形图or分组条形图 : 矩阵绘图
cells<-c(1,2,3,4)
rnames<-c("R1","R2")
cnames<-c("C1","C2")
m&
#1.1水平or竖直条形图 :向量绘图
library(vcd)
library(grid)
counts<- table(Arthritis$Improved)
str(counts)
> counts
None Some Marked
42 14 28
barplot(counts)#简单条形图
![](https://i-blog.csdnimg.cn/blog_migrate/ef23ec93b0a80b172cc7c7636d9c4734.png)
barplot(counts,horiz = T)#水平条形图 horiz = T
a<-c(1,2,3,5)
barplot(a)#向量绘图![](https://i-blog.csdnimg.cn/blog_migrate/8f7fb85efcf8d5e08bf0ba25ff3c5f1f.png)
plot(Arthritis$Improved) #绘图效果同 barplot(counts)
![](https://i-blog.csdnimg.cn/blog_migrate/ef23ec93b0a80b172cc7c7636d9c4734.png)
#1.2堆砌条形图or分组条形图 : 矩阵绘图
cells<-c(1,2,3,4)
rnames<-c("R1","R2")
cnames<-c("C1","C2")
m&