如何在DiagrammeR甘特图中添加自定义时间的垂直线？

DiagrammeR依托mermaid语法实现甘特图，我们可以通过创建零时长任务并自定义样式的方式，快速添加指定时间点的垂直线，具体操作如下：

1. 在甘特图代码里新增一个专门用于标记的section
2. 创建一个时长为0d的任务，把起始时间设为你需要标记的自定义时间点
3. 用style指令给这个任务设置无填充、带颜色的线条样式，以此模拟垂直线效果

示例代码 #

library(DiagrammeR)

# 编写带自定义垂直线的甘特图mermaid代码
gantt_diagram <- "
gantt
    dateFormat  YYYY-MM-DD
    title 项目开发进度跟踪
    
    section 核心阶段
    需求调研     :active, req, 2024-01-05, 25d
    架构设计     :design, after req, 18d
    功能开发     :dev, after design, 35d
    集成测试     :test, after dev, 20d
    
    # 添加2024-02-20的红色垂直线
    section 时间标记
    关键节点线 :crit, mark_line, 2024-02-20, 0d
    style mark_line fill:none, stroke:#ff4444, stroke-width:2px
"

# 渲染甘特图
grViz(gantt_diagram)

补充说明 #

• 零时长任务的起始时间就是垂直线对应的目标时间点
• 通过style指令可以自由调整线条的颜色、粗细等样式，适配不同可视化需求
• 若需添加多条垂直线，重复创建零时长任务并设置不同ID、时间和样式即可

内容的提问来源于stack exchange，提问作者David Robie