如何在ggplotly中实现直线任意位置悬停显示Tooltip？

基础代码 #

library(plotly)
library(ggplot2)

# 绘制带物种标签提示的散点图
p = ggplot(iris, aes(label=Species)) + 
  geom_point(aes(Sepal.Length, Sepal.Width))
ggplotly(p)

# 定义参考线数据集
a <- data.frame(
  ID = rep(1:3, 2),
  Type = rep(1:3, 2),
  Sepal.Length = rep(5:7, 2),
  Sepal.Width = rep(c(0, 5), rep(3, 2))
)
a

现有参考线实现代码 #

以下代码可添加参考线，但仅在直线端点悬停时触发Tooltip：

p2 <- geom_line(data = a, aes(x = Sepal.Length, y = Sepal.Width, color = Type, group = ID, label = NA))
p + p2
ggplotly(p + p2)

问题需求 #

添加参考线后，希望鼠标悬停在直线任意位置都能显示Tooltip，且不接受通过生成大量中间点模拟的方案。

解决方案 #

通过直接修改plotly对象的底层配置，为线条启用全局悬停检测，并自定义Tooltip内容：

library(plotly)
library(ggplot2)

# 构建包含散点和参考线的ggplot图形
p = ggplot(iris, aes(label = Species)) + 
  geom_point(aes(Sepal.Length, Sepal.Width)) +
  # 移除label=NA，保留Type的映射以便后续配置Tooltip
  geom_line(data = a, aes(x = Sepal.Length, y = Sepal.Width, color = factor(Type), group = ID))

# 转换为plotly对象
p_plotly <- ggplotly(p)

# 遍历所有trace，针对线条类型修改悬停配置
for (i in seq_along(p_plotly$x$data)) {
  # 筛选出线条类型的trace
  if (p_plotly$x$data[[i]]$type == "scatter" && p_plotly$x$data[[i]]$mode == "lines") {
    # 设置悬停模式为closest，支持任意位置触发
    p_plotly$x$data[[i]]$hovermode <- "closest"
    # 指定Tooltip显示的信息维度
    p_plotly$x$data[[i]]$hoverinfo <- "x+y+name"
    # 自定义Tooltip显示文本，按需调整内容
    p_plotly$x$data[[i]]$text <- paste0(
      "参考线类型: ", p_plotly$x$data[[i]]$name, "\n",
      "花萼长度: ", p_plotly$x$data[[i]]$x, "\n",
      "花萼宽度: ", p_plotly$x$data[[i]]$y
    )
  }
}

# 输出修改后的交互式图形
p_plotly

关键说明 #

1. 不再给geom_line设置label=NA，保留数据映射以便plotly识别线条的属性
2. 通过遍历plotly的trace对象，为线条类型元素设置hovermode="closest"，实现任意位置悬停触发
3. 利用text参数自定义Tooltip的显示内容，可根据需求添加或修改字段
4. 将Type转为因子类型，让线条的颜色图例更直观

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