r - 如何在访问时间图中添加垂直线？

Question

我想在我的访问时间图中添加一条代表当前日期的垂直线。我已经尝试了多种方法，但仍然无法弄清楚。 这是一个可重复的小代码，您可以在此基础上进行构建。

library(shiny)
library(plotly)
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'),
                   fontcolor = c("black", "white", "black"))

shinyApp(
  ui = plotlyOutput("myVistime"),
  server = function(input, output) {
    output$myVistime <- renderPlotly({
      vistime(pres, col.event = "Position", col.group = "Name")
    })
  }
)

Answer 1

您可以使用add_segments向使用vistime制作的plotly时间线添加一条垂直线。在本例中，x 轴将是年份。 yaxis 总统放置在 y = 1, 3, 5, 7 处，因此此示例中的线段应从 0 延伸到 8(y = 0 和 yend = 8 )。

编辑:要自动从plotly对象获取y轴范围，您可以尝试使用plotly_build并以这种方式提取布局属性.

curr_year = 1801

p <- vistime(pres, col.event = "Position", col.group = "Name") %>%
  layout(showlegend = FALSE)
      
pb <- plotly_build(p)

add_segments(p, 
             x = curr_year, 
             xend = curr_year, 
             y = pb$x$layout$yaxis$range[1], 
             yend = pb$x$layout$yaxis$range[2], 
             color = I("light green"))

plotly