DATAGURU专业数据分析网站
2013.04.10
数据分析、展现与R语言 第11周
DATAGURU专业数据分析网站
2013.04.10
柱形图
install.packages("RColorBrewer") #if not already
installed
library(RColorBrewer)
citysales<-read.csv("citysales.csv")
barplot(as.matrix(citysales[,2:4]), beside=TRUE,
legend.text=citysales$City,
args.legend=list(bty="n",horiz=TRUE),
col=brewer.pal(5,"Set1"),
border="white",ylim=c(0,100),
ylab="Sales Revenue (1,000's of USD)",
main="Sales Figures")
box(bty="l")
3
DATAGURU专业数据分析网站
2013.04.10
堆叠效果
citysales<-read.csv("citysales.csv")
barplot(as.matrix(citysales[,2:4]),
legend.text=citysales$City,
args.legend=list(bty="n",horiz=TR
UE),
col=brewer.pal(5,"Set1"),border="
white",
ylim=c(0,200),ylab="Sales Revenue
(1,000's of USD)",
main="Sales Figures")
4
DATAGURU专业数据分析网站
2013.04.10
用堆叠效果展示百分比
使用第五章数据
citysalesperc<-
read.csv("citysalesperc.csv")
par(mar=c(5,4,4,8),xpd=T)
barplot(as.matrix(citysalesperc[,2:4]),
col=brewer.pal(5,"Set1"),border="white",
ylab="Sales Revenue (1,000's of USD)",
main="Percentage Sales Figures")
legend("right",legend=citysalesperc$City,
bty="n",
inset=c(-0.3,0),fill=brewer.pal(5,"Set1"))
5