如何在Shiny的R-Plotly中隐藏复现的轨迹悬停标签？

针对你遇到的小屏幕下value_2020轨迹悬停标签复现的问题，以下是几个无需切换hovermode为"x"或"closest"的可行方案：

方案1：双重强制隐藏悬停标签 #

给value_2020轨迹同时设置hoverinfo = "none"和hoverlabel = list(visible = FALSE)，通过双重配置强制屏蔽悬停标签的显示，覆盖不同屏幕尺寸下Plotly的hover检测逻辑差异。

示例代码：

library(plotly)
library(shiny)

# 模拟你的数据结构
df <- data.frame(
  year = 2018:2022,
  value_pre = c(10, 12, NA, NA, NA),
  value_2020 = c(NA, 12, 11, 13, NA),
  value_post = c(NA, NA, NA, 13, 15)
)

ui <- fluidPage(plotlyOutput("timeline_plot"))

server <- function(input, output) {
  output$timeline_plot <- renderPlotly({
    plot_ly(df, x = ~year) %>%
      # 先绘制2020补全轨迹，确保在底层
      add_lines(
        y = ~value_2020,
        line = list(dash = "dash"),
        hoverinfo = "none",
        hoverlabel = list(visible = FALSE), # 强制隐藏悬停标签
        name = "",
        showlegend = FALSE # 不需要在图例显示
      ) %>%
      add_lines(y = ~value_pre, line = list(dash = "solid"), name = "2020前数据") %>%
      add_lines(y = ~value_post, line = list(dash = "solid"), name = "2020后数据") %>%
      layout(hovermode = "x unified", title = "带2020补全的时序图")
  })
}

shinyApp(ui, server)

方案2：移除轨迹标记，仅保留线条 #

如果value_2020轨迹不需要显示数据点标记，可以明确设置mode = "lines"（默认add_lines已为该模式，但显式声明更稳妥），避免小屏幕下hover触发到标记元素：

add_lines(
  y = ~value_2020,
  line = list(dash = "dash"),
  mode = "lines", # 仅显示线条，无标记点
  hoverinfo = "none",
  name = "",
  showlegend = FALSE
)

方案3：重构数据结构优化轨迹逻辑 #

将数据整理为长格式，用linetype映射区分线条样式，减少轨迹数量的同时更易控制悬停行为：

# 重构为长格式数据
df_long <- tidyr::pivot_longer(df, cols = -year, names_to = "group", values_to = "value") %>%
  dplyr::filter(!is.na(value)) %>%
  dplyr::mutate(
    linetype = dplyr::case_when(
      group == "value_2020" ~ "dash",
      TRUE ~ "solid"
    )
  )

# 绘图代码
plot_ly(df_long, x = ~year, y = ~value, color = ~group, linetype = ~linetype) %>%
  add_lines(
    hoverinfo = ifelse(df_long$group == "value_2020", "none", "x+y"),
    hoverlabel = ifelse(df_long$group == "value_2020", list(visible = FALSE), list())
  ) %>%
  layout(hovermode = "x unified", showlegend = FALSE) # 按需显示图例

这些方案都能在保留hovermode = "x unified"的前提下，彻底解决小屏幕下value_2020轨迹悬停标签复现的问题。

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