我正在尝试使用“时间标记”制作图表。这些时间标记是某些日期的垂直线。时间数据为 POSIXct 格式。我想使用 Plotly 很棒的交互界面并在其中使用我的 ggplot 对象。
问题是这些“时间标记”在使用 ggplotly() 后没有显示出来。我已经尝试过，plotly::add_segments()但它不起作用。这是两个可复制的示例：
1. 使用非 POSIXct 数据可以正常工作
# dummy dataset df2 = data.frame(id = 1:10, measure = runif(10, 0, 20)) events2 = data.frame(number = c(2,3,8)) # ggplot graph p2 = ggplot() + geom_line(data = df2, aes(x = id, y = measure)) + geom_vline(data = events2, aes(xintercept = events2$number), color = "red") p2 # plotly graph that displays the geom_vline properly ggplotly(p2)
2. POSIXct 数据不显示正确结果
# dummy dataset df = data.frame(date = seq(as.POSIXct("2017-07-01", tz = "UTC", format = "%Y-%m-%d"), as.POSIXct("2018-04-15", tz = "UTC", format = "%Y-%m-%d"), "1 month"), measure = runif(10, 0, 20)) events = data.frame(date_envents = as.POSIXct(c("2017-10-12", "2017-11-12", "2018-03-15"), tz = "UTC", format = "%Y-%m-%d")) # ggplot graph p = ggplot() + geom_line(data = df, aes(x = date, y = measure)) + geom_vline(data = events, aes(xintercept = events$date), color = "red") p # plotly graph that does not display the geom_vline properly ggplotly(p)
我已经看到了一些解决方法（比如这个：将垂直线添加到 ggplotly plot），但它是“复杂的”。有没有更简单的方法来解决这个问题？
我正在使用带有 R 版本 3.5.0、RStudio 和以下软件包的 Windows 10：
library(tidyverse)和library(plotly)
