超强脑洞第四弹——ggplot构造甘特图

甘特图即便是用excel来做，也是要吃些苦头的，ggplot中无此内置图层函数，但是，没啥图能难道哈神的巨作，ggplot制作甘特不费吹灰之力，而且还能做得有模有样，有板有眼。以下是代码过程。

数据准备：

library("lubridate")
library("ggplot2")
library("ggmap")
library(showtext)
library(grid)
library(scales)
library(Cairo)

数据集构造：

Item<-paste("Step"," ",1:8,sep="")
Planned_Start_Date<-c("2016/03/03","2016/03/16","2016/03/28","2016/04/02","2016/04/12","2016/04/22","2016/05/16","2016/05/22")
Planned_Finish_Date<-c("2016/03/15","2016/03/31","2016/04/04","2016/04/15","2016/04/26","2016/05/20","2016/05/28","2016/06/12")
Actual_Start_Date<-c("2016/03/03","2016/03/16","2016/03/27","2016/04/05","2016/04/13","2016/04/22","2016/05/16","2016/05/22")
Actual_Finish_Date<-c("2016/03/18","2016/03/28","2016/04/05","2016/04/16","2016/04/27","2016/05/15","2016/05/16","2016/05/22")
mydata<-data.frame(Item,Planned_Start_Date,Planned_Finish_Date,Actual_Start_Date,Actual_Finish_Date,stringsAsFactors = FALSE)

日期变量转换：

mydata$Planned_Start_Date<-ymd(mydata$Planned_Start_Date)
mydata$Planned_Finish_Date<-ymd(mydata$Planned_Finish_Date)
mydata$Actual_Start_Date<-ymd(mydata$Actual_Start_Date)
mydata$Actual_Finish_Date<-ymd(mydata$Actual_Finish_Date)

1 2	datebreaks<-seq(as.Date("2015-03-01"),as.Date("2015-06-01"),by="1 month") time<-as.Date("2016-05-15")

可视化过程：

GGsave函数渲染输出：

windowsFonts(myFont = windowsFont("微软雅黑"))
p<-ggplot()+
geom_linerange(data=mydata,aes(x=Item,ymin=Planned_Start_Date,ymax=Planned_Finish_Date),size=10,color="#BFBFBF",alpha=0.8)+
geom_linerange(data=mydata,aes(x=Item,ymin=Actual_Start_Date,ymax=Actual_Finish_Date),size=7,color="#085264",alpha=0.8)+
scale_x_discrete(limits=sort(Item,decreasing=T))+
scale_y_date(position ="top")+
#scale_y_date(breaks=datebreaks,labels=date_format("%Y %b"))+
#geom_hline(data=NULL,aes(hintercept=time))+
coord_flip()+
theme(
axis.title=element_blank(),
axis.text.x=element_text(margin=margin(5,0,0,0,"pt")),
axis.text.y=element_text(margin=margin(0,10,0,0,"pt")),
axis.ticks.y=element_blank(),
panel.grid.major.y=element_line(color="#FFB666",linetype=5),
panel.background=element_rect(fill="white"),
axis.text=element_text(colour ="black",size=10,face="italic",family="myFont"),
axis.line.x=element_line(),
panel.spacing=unit(-0.3,"cm")
)
ggsave("C:/Users/Administrator/Desktop/甘特图.png",p,width=140,height=75,unit="mm",dpi=100)

Cairo高清渲染输出：

font.add("myfont","msyhl.ttc")
CairoPNG(file="C:/Users/Administrator/Desktop/Gante.png",width=600,height=300)
showtext.begin()
ggplot()+
geom_linerange(data=mydata,aes(x=Item,ymin=Planned_Start_Date,ymax=Planned_Finish_Date),size=10,color="#BFBFBF",alpha=0.8)+
geom_linerange(data=mydata,aes(x=Item,ymin=Actual_Start_Date,ymax=Actual_Finish_Date),size=7,color="#085264",alpha=0.8)+
scale_x_discrete(limits=sort(Item,decreasing=T))+
scale_y_date(position ="top")+
#scale_y_date(breaks=datebreaks,labels=date_format("%Y %b"))+
#geom_hline(data=NULL,aes(hintercept=time))+
coord_flip()+
theme(
axis.title=element_blank(),
axis.text.x=element_text(margin=margin(5,0,0,0,"pt")),
axis.text.y=element_text(margin=margin(0,10,0,0,"pt")),
axis.ticks.y=element_blank(),
panel.grid.major.y=element_line(color="#FFB666",linetype=5),
panel.background=element_rect(fill="white"),
axis.text=element_text(colour ="black",size=10,face="italic",family="myfont"),
axis.line.x=element_line(),
panel.spacing=unit(-0.3,"cm")
)
showtext.end()
dev.off()

核心要点总结：

数据构造：本案例使用geom图层系统中的范围线图层来临摹的（linerange），该图层接受两个变量的范围（起点、终点），因为有计划日期、实际执行日期，所以使用了两个linerange图层，四个变量（计划开始日期、计划结束日期、实际开始日期、实际结束日期）。数据构造主要涉及日期变量转换。
图层映射过程，掌握好linerange图层内的元素调整（颜色、线条宽度、类型等）。

联系方式：
wechat：ljty1991
Mail:578708965@qq.com
个人公众号：数据小魔方（datamofang）
团队公众号：EasyCharts
qq交流群：[魔方学院]298236508

个人简介：
杜雨
财经专业研究僧；
伪数据可视化达人；
文科背景的编程小白；
喜欢研究商务图表与地理信息数据可视化，爱倒腾PowerBI、SAP DashBoard、Tableau、R ggplot2、Think-cell chart等诸如此类的数据可视化软件，创建并运营微信公众号“数据小魔方”。
Mail:578708965@qq.com