如何将DiagrammeR中mermaid甘特图的任意起始日期设为T+000？

问题分析 #

当前使用"T+%j"格式时，%j是d3内置的日期格式化符，代表一年中的第几天，因此会从每年1月1日开始计数，导致你的2025-02-10显示为T+41而非预期的T+0。要实现从数据起始日开始计数，需要放弃d3的内置格式化逻辑，改用自定义计算逻辑。

解决方案 #

我们可以通过修改axisFormatter中的格式化函数，手动计算当前刻度日期与项目起始日的天数差，从而生成T+N的显示格式。完整代码如下：

library(DiagrammeR)
library(htmltools)

# 定义项目的实际起始日期
project_start <- as.Date("2025-02-10")

m1 <- mermaid('
  gantt
    title Gantt With Custom Config
    section To fix
      check with Rich         :a1, 2025-02-20, 2d
      add custom config param :a2, after a1, 20d
      get bresler feedback    :a3, after a2,  2d
',height = 200)

m2 <- m1

# 将R中的日期转换为JS可识别的毫秒时间戳
start_ts <- as.integer(project_start) * 1000

m2$x$config = list(ganttConfig = list(
  axisFormatter = list(list(
    htmlwidgets::JS(sprintf('
      function(d) {
        // 计算当前日期与项目起始日的天数差
        const oneDayMs = 24 * 60 * 60 * 1000;
        const dayDiff = Math.round((d.getTime() - %d) / oneDayMs);
        return "T+" + dayDiff;
      }
    ', start_ts)),
    htmlwidgets::JS('function(d){ return d.getDay() == 1 }') // 保留原有的周一过滤逻辑
  ))
))

html_print(tagList(
  tags$h1("Modified X-Axis (Count From Project Start)")
  ,m2
))

关键说明 #

• 起始日同步：先在R中定义项目最早的起始日期，转换为毫秒时间戳后传入JS函数，确保R和JS的时间计算基准一致
• 自定义天数计算：通过d.getTime()获取X轴刻度的时间戳，减去起始日时间戳后除以一天的毫秒数，得到从起始日开始的天数差
• 保留原有逻辑：原有的周一过滤逻辑可以保留，也可以根据需求删除（删除后会显示所有X轴刻度）

注意事项 #

• 无需修改原始甘特图的日期数据，所有天数计算由格式化函数自动完成，避免后续数据录入出错
• 如果后续调整项目起始日，只需修改project_start变量即可，无需改动其他代码

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