R语言可视化（二十二）：甘特图绘制

22. 甘特图绘制

---

清除当前环境中的变量

rm(list=ls())

设置工作目录

setwd("C:/Users/Dell/Desktop/R_Plots/22gantt/")

使用plotrix包绘制甘特图

# 安装并加载所需的R包
#install.packages("plotrix")
library(plotrix)

# 构建测试数据集
Ymd.format<-"%Y/%m/%d"
gantt.info <-list(labels= c("First task","Second task","Third task","Fourth task","Fifth task"),
                  starts= as.POSIXct(strptime(c("2004/01/01","2004/02/02","2004/03/03","2004/05/05","2004/09/09"),format=Ymd.format)),
                  ends= as.POSIXct(strptime(c("2004/03/03","2004/05/05","2004/05/05","2004/08/08","2004/12/12"),format=Ymd.format)),
                  priorities=c(1,2,3,4,5)
                  )
gantt.info
## $labels
## [1] "First task"  "Second task" "Third task"  "Fourth task" "Fifth task" 
##
## $starts
## [1] "2004-01-01 CST" "2004-02-02 CST" "2004-03-03 CST" "2004-05-05 CST"
## [5] "2004-09-09 CST"
##
## $ends
## [1] "2004-03-03 CST" "2004-05-05 CST" "2004-05-05 CST" "2004-08-08 CST"
## [5] "2004-12-12 CST"
##
## $priorities
## [1] 1 2 3 4 5

vgridpos <- as.POSIXct(strptime(c("2004/01/01","2004/02/01","2004/03/01","2004/04/01",
                                  "2004/05/01","2004/06/01","2004/07/01","2004/08/01",
                                  "2004/09/01","2004/10/01","2004/11/01","2004/12/01"),
                                format=Ymd.format))
vgridpos
## [1] "2004-01-01 CST" "2004-02-01 CST" "2004-03-01 CST" "2004-04-01 CST"
## [5] "2004-05-01 CST" "2004-06-01 CST" "2004-07-01 CST" "2004-08-01 CST"
## [9] "2004-09-01 CST" "2004-10-01 CST" "2004-11-01 CST" "2004-12-01 CST"

vgridlab <- c("Jan","Feb","Mar","Apr","May","Jun",
              "Jul","Aug","Sep","Oct","Nov","Dec")
vgridlab
##  [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"

# 使用gantt.charth函数绘制甘特图
gantt.chart(gantt.info, # a list of task labels, start/end times and task priorities
            main="Calendar date Gantt chart (2004)", # 设置标题
            priority.legend=TRUE, # 设置是否展示color图例
            vgridpos=vgridpos, # 设置垂直网格线的位置
            vgridlab=vgridlab, # 设置垂直网格线的标签
            hgrid=TRUE # 设置是否显示水平网格线
            )

image.png

# add a little extra space on the right side
gantt.chart(gantt.info,
            main="Calendar date Gantt chart (2004)",
            priority.legend=TRUE,
            vgridpos=vgridpos,
            vgridlab=vgridlab,
            hgrid=TRUE,
            taskcolors = rainbow(5),
            priority.label = "Task priorities",
            xlim=as.POSIXct(strptime(c("2004/01/01","2004/12/20"),
                                     format=Ymd.format)))

image.png

# if both vgidpos and vgridlab are specified,
# starts and ends don't have to be dates
info2 <- list(labels=c("Jim","Joe","Jim","John","John","Jake","Joe","Jed","Jake"),
              starts=c(8.1,8.7,13.0,9.1,11.6,9.0,13.6,9.3,14.2),
              ends=c(12.5,12.7,16.5,10.3,15.6,11.7,18.1,18.2,19.0))
info2
## $labels
## [1] "Jim"  "Joe"  "Jim"  "John" "John" "Jake" "Joe"  "Jed"  "Jake"
##
## $starts
## [1]  8.1  8.7 13.0  9.1 11.6  9.0 13.6  9.3 14.2
##
## $ends
## [1] 12.5 12.7 16.5 10.3 15.6 11.7 18.1 18.2 19.0

gantt.chart(info2,vgridlab=8:19,vgridpos=8:19,
            main="All bars the same color",
            taskcolors="lightgray",
            cylindrical = T)

image.png

gantt.chart(info2,vgridlab=8:19,vgridpos=8:19,
            main="A color for each label",
            taskcolors=c(2,3,7,4,8),
            priority.legend = T)

image.png

gantt.chart(info2,vgridlab=8:19,vgridpos=8:19,
            main="A color for each interval - with borders",
            taskcolors=c(2,3,7,4,8,5,3,6,"purple"),
            border.col="black")

image.png

使用vistime包绘制甘特图

# 安装并加载所需的R包
#install.packages("vistime")
library(vistime)

# 构建测试数据集
pres <- data.frame(
  Position = rep(c("President", "Vice"), each = 3),
  Name = c("Washington", rep(c("Adams", "Jefferson"), 2), "Burr"),
  start = c("1789-03-29", "1797-02-03", "1801-02-03"),
  end = c("1797-02-03", "1801-02-03", "1809-02-03"),
  color = c("#cbb69d", "#603913", "#c69c6e")
)
pres
##    Position       Name      start        end   color
## 1 President Washington 1789-03-29 1797-02-03 #cbb69d
## 2 President      Adams 1797-02-03 1801-02-03 #603913
## 3 President  Jefferson 1801-02-03 1809-02-03 #c69c6e
## 4      Vice      Adams 1789-03-29 1797-02-03 #cbb69d
## 5      Vice  Jefferson 1797-02-03 1801-02-03 #603913
## 6      Vice       Burr 1801-02-03 1809-02-03 #c69c6e

# 使用gg_vistime函数绘制甘特图
gg_vistime(pres, 
           col.event = "Position", 
           col.group = "Name", 
           col.start = "start",
           col.end = "end",
           col.color = "color",
           title = "Presidents of the USA")

image.png

sessionInfo()
R version 3.6.0 (2019-04-26)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)

Matrix products: default

locale:
[1] LC_COLLATE=Chinese (Simplified)_China.936 
[2] LC_CTYPE=Chinese (Simplified)_China.936   
[3] LC_MONETARY=Chinese (Simplified)_China.936
[4] LC_NUMERIC=C                              
[5] LC_TIME=Chinese (Simplified)_China.936    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] dplyr_0.8.3   plotrix_3.7-6

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.5       pillar_1.4.2     compiler_3.6.0   tools_3.6.0     
 [5] digest_0.6.20    evaluate_0.14    tibble_2.1.3     nlme_3.1-139    
 [9] gtable_0.3.0     lattice_0.20-38  pkgconfig_2.0.2  rlang_0.4.7     
[13] rstudioapi_0.10  yaml_2.2.0       xfun_0.8         knitr_1.23      
[17] generics_0.0.2   grid_3.6.0       tidyselect_0.2.5 glue_1.3.1      
[21] R6_2.4.0         rmarkdown_1.13   ggplot2_3.2.0    purrr_0.3.2     
[25] tidyr_0.8.3      magrittr_1.5     htmltools_0.3.6  scales_1.0.0    
[29] backports_1.1.4  assertthat_0.2.1 colorspace_1.4-1 lazyeval_0.2.2  
[33] munsell_0.5.0    broom_0.5.2      crayon_1.3.4