超强脑洞第三弹之——ggplot构造瀑布图
对，就是瀑布图，你没看错。而且是使用ggplot现有图层叠加构造，并没有用任何ggplot的外挂插件。
作图理念是在数据源的构造上，方法与《Excel图表之道》《Excel图表拒绝平庸》中的方法一致，我只是加入了自己的技巧。
library("reshape2")
library("ggplot2")
library("ggmap")
library("Cairo")
构造瀑布图数据源：
Item<-c("Before","Factor A","Factor B","Factor C","Factor D","Factor E","Factor F","Factor G","After")
Data<-c(325,-32,-105,38,86,97,232,389,1030)
mydata<-data.frame(Item,Data,stringsAsFactors =F)
mydata$BA<-mydata$Data
mydata$Dummy<-0
mydata$add<-0
mydata$Reduc<-0
mydata$BA[2:8]<-0
for (i in 2:8){
ifelse(mydata$Data[i]<0,mydata$Dummy[i]<-sum(mydata$Data[1:i]),mydata$Dummy[i]<-sum(mydata$Data[1:i-1]))
}
for (i in 2:8){
ifelse(mydata$Data[i]<0,mydata$add[i]<-0,mydata$add[i]<-mydata$Data[i])
}
for (i in 2:8){
ifelse(mydata$Data[i]<0,mydata$Reduc[i]<-abs(mydata$Data[i]),mydata$add[i]<-0)
}
mydata1<-mydata[,-2]
mydataA<- melt(mydata1,id.vars ="Item",variable.name = "class", value.name = "scope")
mydataA$class<-factor(mydataA$class,levels=c("Reduc","add","Dummy","BA"),order=T)
色盘设置：
Color<-c("#A6442A","#015313","#FFFFFF","#131F37")
作图函数：
CairoPNG(file="C:/Users/Administrator/Desktop/瀑布图1.png",width=650,height=360)
ggplot()+
geom_bar(data=mydataA,aes(x=Item,y=scope,fill=class),stat="identity",position="stack",width=1)+
scale_x_discrete(limits=Item)+
scale_fill_manual(values=Color)+
guides(fill=FALSE)+
geom_text(data=mydata1,aes(x=Item,y=BA/2),label=ifelse(mydata1$BA!=0,mydata1$BA,""),col="white")+
geom_text(data=mydata1,aes(x=Item,y=Dummy+add),label=ifelse(mydata1$add!=0,paste("+",mydata1$add,sep=""),""),col="#015313",vjust=-.5)+
geom_text(data=mydata1,aes(x=Item,y=Dummy),label=ifelse(mydata1$Reduc!=0,paste("-",mydata1$Reduc,sep=""),""),col="#A6442A",vjust=1.2)+
theme(
panel.background=element_blank(),
axis.title=element_blank(),
axis.text = element_text(colour ="black",size=12,face="italic"),
axis.text.y=element_blank(),
axis.ticks=element_blank()
)
dev.off()
通过角度旋转，得到水平方向瀑布图：
CairoPNG(file="C:/Users/Administrator/Desktop/瀑布图2.png",width=650,height=360)
ggplot()+
geom_bar(data=mydataA,aes(x=Item,y=scope,fill=class),stat="identity",position="stack",width=1)+
scale_x_discrete(limits=Item)+
scale_fill_manual(values=Color)+
coord_flip()+
guides(fill=FALSE)+
geom_text(data=mydata1,aes(x=Item,y=BA/2),label=ifelse(mydata1$BA!=0,mydata1$BA,""),col="white")+
geom_text(data=mydata1,aes(x=Item,y=Dummy+add),label=ifelse(mydata1$add!=0,paste("+",mydata1$add,sep=""),""),col="#015313",hjust=-.20)+
geom_text(data=mydata1,aes(x=Item,y=Dummy),label=ifelse(mydata1$Reduc!=0,paste("-",mydata1$Reduc,sep=""),""),col="#A6442A",hjust=1.2)+
theme(
panel.background=element_blank(),
axis.title=element_blank(),
axis.text = element_text(colour ="black",size=12,face="italic"),
axis.text.x=element_blank(),
axis.ticks=element_blank()
)
dev.off()
核心要点总结:
数据源组织：瀑布图高度依赖数据源组织，如果你不太熟悉R中的数据操纵，完全可以将数据源组织过程在excel使用函数完成，然后倒入R并转为长数据进行作图。
数据宽转长过程：转换后的因子变量的四个水平顺序要重点注意。因子水平顺序为：降低值<增加值<占位值<开头/结尾值。（顺序万不能乱）。
色盘颜色顺序：与因子水平顺序一致。第三个为白色，其他与之对应。
欢迎关注魔方学院QQ群