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
