R语言 如何从甘特中删除“今天”竖线

vx6bjr1n  于 2023-05-04  发布在  其他
关注(0)|答案(2)|浏览(175)

我用DiagrammeR包在R中创建了一个简单的甘特(我的第一个),但我不知道如何从图表中删除红色垂直线(代表今天)。此外,由于某种原因,三月显示为w。17而不是03-17?任何想法非常欢迎。
代码如下

library(Diagrammer)

m1 <- mermaid("
        gantt
              dateFormat  YYYY-MM-DD
              title Research Proposal Timeline

              section Tidy Raw Data
              Tidy available data            :active,        first_1,   2017-03-01, 14d
              New data                      :active,        first_2,   2017-06-01, 7d

              section Alignment and Assemply
              Align & Assign RNASeq Dataset          :crit, active,  align_1,    2017-03-15, 14d
              Align & Assign Epic Array Dataset      :crit, active,  align_2,    2017-03-20, 14d
              Assemble Methylome                     :crit, active,  align_3,    align_2, 14d
              Assemble Genotype & Phenotype Tables   :crit, active,  align_4,    after align_3, 5d

              section Data Analysis
              Development of Pipeline       :active,        pipe_1,     2017-04-01, 156d
              Debugging Script              :active         pipe_2,     2017-04-11, 146d
              Student Development           :active         pipe_3,     2017-03-01, 200d

              section Results
              Define Biomarkers of interest :active,        results_1,   2017-06-01, 5d
              Establish Predictive Model    :active,        results_2,   2017-06-01, 14d
              Test Predictive Model         :active,        results_3,   2017-06-08, 10d

              section Assessments
              Written Research Proposal     :active,        extras_1,   2017-02-20, 16d               
              Research Proposal Seminar     :active,        extras_2,   2017-03-06, 15d
              Non-Expert Seminar            :active,        extras_3,   2017-04-01, 10d
              Draft Literature Review       :active,        extras_4,   2017-03-21, 77d
              Literature Review             :active,        extras_5,   2017-05-22, 14d
              Literature Assessment Task    :active,        extras_6,   2017-07-04, 24h
              Research Progress Seminar     :active,        extras_7,   2017-08-01, 20d
              Thesis                        :crit, active,  extras_8,   2017-08-04, 94d
              VIVA                          :crit, active,  extras_9,   2017-11-07, 24h
              ", height = 400, width = 1000)

m1

代码是根据乔治Dontas以前的回复修改的。

sdnqo3pr

sdnqo3pr1#

您可以使用以下命令关闭当前日期的标记:今天标记关闭

eiee3dmh

eiee3dmh2#

如果使用style_widget function from here,则可以摆脱该行。然后你可以打电话

style_widget(m1, "display:none", "line.today")

为了完整起见,这里复制了该函数

style_widget <- function(hw=NULL, style="", addl_selector="") {
  stopifnot(!is.null(hw), inherits(hw, "htmlwidget"))

  # use current id of htmlwidget if already specified
  elementId <- hw$elementId
  if(is.null(elementId)) {
    # borrow htmlwidgets unique id creator
    elementId <- sprintf(
      'htmlwidget-%s',
      htmlwidgets:::createWidgetId()
    )
    hw$elementId <- elementId
  }

  htmlwidgets::prependContent(
    hw,
    htmltools::tags$style(
      sprintf(
        "#%s %s {%s}",
        elementId,
        addl_selector,
        style
      )
    )
  )
}

相关问题