R软件制作甘特图

注意的问题

  1. 日期月份不足两位数的，要用0补齐，否则不能正常处理
  2. 目前日期不知道怎样转换为中文，默认情况下时间轴为week，可以用下述方法转换为月-日
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
library(DiagrammeR)
library(htmltools)

figure2 <- mermaid('gantt
    title 2019年本科毕业实习研究计划
    section   开题
        搜集资料                          :done, 2018-12-28, 2019-01-10
        准备开题报告                      :active, 2019-01-14, 2019-01-30
        开题报告                          :crit, 2019-02-05, 2019-02-15
    section   中期考核
        准备中期报告                      :2019-02-16, 2019-03-13 
        中期考核                          :2019-03-14, 2019-03-15   
    section   数据和分析
        采集数据                          :crit, 2019-03-15, 2019-04-01 
        数据分析与制作图表                :2019-04-02, 2019-04-15 
    section   论文撰写
        论文初稿                          :2019-04-15, 2019-05-20
        论文定稿                          :crit, 2019-05-21, 2019-06-01 
    section   外审
        论文外审，准备答辩                :crit, 2019-05-21, 2019-06-14 
    section   答辩
        答辩                              :crit, 2019-06-15, 2019-06-20 
')

figure2
1
2
3
4
5
6
7
8
9
10
figure2$x$config = list(ganttConfig = list(
  axisFormatter = list(list(
    "%b-%d" # date format to return; see d3 time formatting
    ,
    htmlwidgets::JS(
      'function(d){ return d.getDay() == 1 }' # filter for Mondays or day of week = 1
    )
  ))
))
figure2