将ggplot转为ggplotly时如何保留geom_vline？

ggplotly在处理日期类型的geom_vline时存在兼容性问题，直接传入日期对象作为xintercept会导致转换后竖线丢失，以下是两种可行的解决方法：

方案1：将日期转换为数值类型传入xintercept #

ggplot底层用数值存储日期，将目标日期转为数值后传给geom_vline的xintercept，ggplotly就能正确识别并保留竖线：

# Data set
df <- data.table(
  date = as.Date(c(
    "2020-12-28", "2020-12-30", "2021-10-11", "2022-11-11", "2023-12-13")),
  value = c(
    100, 120, 200, 180, 150))

# 修改geom_vline的xintercept参数
g <- df %>% 
  ggplot(aes(x = date, y = value)) +
  geom_point() + geom_smooth(se = FALSE) +
  # 将日期转为数值格式
  geom_vline(xintercept = as.numeric(as.Date("2021-10-11")), linetype = "dashed", color = "red") +
  annotate("text", x = as.Date("2021-10-11"), y = Inf, label = "label", vjust = 1, hjust = -0.1, color = "red") +
  theme_minimal()

# 转换为ggplotly
g_plotly <- ggplotly(g, tooltip = c("text")) %>% config(displayModeBar = FALSE)
g_plotly

方案2：在ggplotly对象中手动添加竖线 #

如果需要保留原ggplot代码结构，可以在转换后的ggplotly对象上用add_segments()方法补加竖线，指定竖线的起止坐标：

# Data set
df <- data.table(
  date = as.Date(c(
    "2020-12-28", "2020-12-30", "2021-10-11", "2022-11-11", "2023-12-13")),
  value = c(
    100, 120, 200, 180, 150))

# 原ggplot代码保持不变
g <- df %>% 
  ggplot(aes(x = date, y = value)) +
  geom_point() + geom_smooth(se = FALSE) +
  geom_vline(xintercept = as.Date("2021-10-11"), linetype = "dashed", color = "red") +
  annotate("text", x = as.Date("2021-10-11"), y = Inf, label = "label", vjust = 1, hjust = -0.1, color = "red") +
  theme_minimal()

# 转换后添加竖线
g_plotly <- ggplotly(g, tooltip = c("text")) %>% 
  config(displayModeBar = FALSE) %>%
  add_segments(
    x = as.Date("2021-10-11"), xend = as.Date("2021-10-11"),
    y = min(df$value) - 10, yend = max(df$value) + 10, # 覆盖绘图范围
    line = list(color = "red", dash = "dash")
  )
g_plotly

说明 #

• 方案1更简洁，直接从源头解决兼容性问题，优先推荐使用。
• 方案2适合需保留原ggplot代码的场景，需手动调整y和yend的值确保竖线覆盖整个绘图区域。

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