第六章简单图形

转载于 2015-09-15 21:26:00 发布 · 66 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/py-Tom/p/4811549.html

本文介绍如何使用R语言中的vcd包绘制堆砌条形图、分组条形图及棘状图，并通过实例展示了不同图表的应用场景。首先利用barplot函数创建了堆砌条形图来展示治疗效果的分布情况；接着通过设置beside参数为TRUE绘制了分组条形图，便于比较不同治疗方式的效果；最后使用spine函数绘制了棘状图，以另一种视角呈现数据。

6.1 条形图

6.1.1 堆砌条形图和分组条形图

library(vcd)
library(grid)
counts<-table(Arthritis$Improved,Arthritis$Treatment)
counts
barplot(counts,
         main="Stacked Bar Plot",
         xlab="Treatment",ylab="Frequency",
         col=c("red","yellow","green"),
         legend=rownames(counts))#legend 提供标签

library(vcd)
library(grid)
counts<-table(Arthritis$Improved,Arthritis$Treatment)
counts
barplot(counts,
         main="Stacked Bar Plot",
         xlab="Treatment",ylab="Frequency",
         col=c("red","yellow","green"),
         legend=rownames(counts),beside = TRUE)#beside 表示矩阵中的每一列都表示一个分组，各列中的值将并列而不是堆砌

6.1.2棘状图

library(vcd)
library(grid)
attach(Arthritis)
counts<-table(Treatment,Improved)
counts
spine(counts,
         main="Stacked Bar Plot")
detach(Arthritis)