R 语言绘制百分比堆积条形图及着色

参考书籍：R数据可视化手册

1.   使用ggplot()函数和geom_bar()绘制百分比堆积条形图

library(gcookbook)

library(ggplot2)

library(plyr)

ce<-ddply(cabbage_exp,"Date","transform",percent_weight=Weight/sum(Weight)*100)

ggplot(ce,aes(x=Date,y=percent_weight,fill=Cultivar))+

geom_bar(stat="identity")

原始数据	percent_weight百分比数据

2.            使用scale_fill_brewer ()函数进行着色

#修改颜色

library(gcookbook)

library(ggplot2)

library(plyr)

ce<-ddply(cabbage_exp,"Date","transform",percent_weight=Weight/sum(Weight)*100)

ggplot(ce,aes(x=Date,y=percent_weight,fill=Cultivar))+

geom_bar(stat="identity",colour="black")+

scale_fill_brewer(palette = "Pastel1")

 #scale_fill_brewer(palette = "BuPu")

原始数据	百分比后的数据

3.            使用plyr ()函数和geom_text（）函数进行数据标签

#添加数据标签之前，首先计算每组条形图进行累积求和

library(plyr)

library(ggplot2)

ce<-arrange(cabbage_exp,Date,Cultivar)

ce<-ddply(ce,"Date",transform,label_y=cumsum(Weight)-0.5*Weight)

ce

ggplot(ce,aes(x=Date,y=Weight,fill=Cultivar))+

geom_bar(stat="identity",colour="black")+

geom_text(aes(y=label_y,label=paste(format(Weight,nsmall=2),"kg")),size=4)+

scale_fill_brewer(palette = "pastel1")

 自我总结：

其中关于scale_fill_brewer ()函数颜色有很多表达形式，但是你需要注意颜色字母开头的大小写字母哦，需要自己查看要求哦。