ggplotly双分组美学下，悬停对比模式仅显示单颜色提示框问题

背景与现象 #

基于iris数据集前3条/物种共9条记录制作平行坐标图：

• 用ggplot2构建，按Species设置colour美学，按观测ID设置group美学（每条观测对应独立折线）
• 通过ggplotly转为Plotly图表，自定义tooltip显示观测ID

出现的问题：

• 「显示最近数据悬停」模式可正常查看全部9个提示框
• 「对比数据悬停」模式下，仅每个颜色组显示1个提示框，且固定为各组最后一条观测（ID3、6、9）

预期与推测 #

预期对比悬停模式应显示所有共享x坐标的数据点提示框，但实际未实现。推测问题源于ggplot2中同时使用colour和group分组美学，导致ggplotly转换时将同颜色组内的多个group合并为单一Plotly轨迹（trace），而对比悬停模式按轨迹展示tooltip，每个轨迹仅显示最新数据点的信息。

复现代码 #

# data: first 3 rows of each iris species, add observation ID, reshape to long
library(data.table)
df <- data.table(iris)[, head(.SD, 3), by=Species][, ID := seq(.N)] |> melt(id.vars=c("ID", "Species")) |> as.data.frame()

# manual parallel coordinates plot in ggplot2
library(ggplot2)
gg <- ggplot(df, aes(x=variable, y=value, colour=Species, group=ID)) +
  geom_point(aes(text=ID)) + geom_line()

# flip to plotly
library(plotly)
gg |> ggplotly(tooltip="text")

解决方案 #

方法一：用Plotly原生语法构建图表（推荐）

直接使用Plotly原生函数创建平行坐标图，通过split=~ID确保每个观测对应独立轨迹，对比悬停模式即可显示全部同x数据点的tooltip：

library(data.table)
library(plotly)

# 数据处理
df <- data.table(iris)[, head(.SD, 3), by=Species][, ID := seq(.N)] |> melt(id.vars=c("ID", "Species")) |> as.data.frame()

# Plotly原生平行坐标图
plot_ly(df, type = "scatter", mode = "lines+markers") |>
  add_trace(
    x = ~variable,
    y = ~value,
    color = ~Species,
    text = ~ID,
    hoverinfo = "text",
    split = ~ID  # 关键：按ID拆分轨迹，每个观测对应独立trace
  ) |>
  layout(
    hovermode = "x unified"  # 启用对比数据悬停模式
  )

方法二：修改ggplotly转换后的Plotly对象

手动拆分转换后的轨迹，确保每个观测对应独立trace，再设置对比悬停模式：

library(data.table)
library(ggplot2)
library(plotly)

# 数据处理
df <- data.table(iris)[, head(.SD, 3), by=Species][, ID := seq(.N)] |> melt(id.vars=c("ID", "Species")) |> as.data.frame()

# ggplot绘图
gg <- ggplot(df, aes(x=variable, y=value, colour=Species, group=ID)) +
  geom_point(aes(text=ID)) + geom_line()

# 转换为plotly并修改轨迹
p <- ggplotly(gg, tooltip="text")
p$x$data <- list()  # 清空原有合并后的轨迹

# 逐个添加每个ID的独立轨迹
for (id in unique(df$ID)) {
  sub_df <- df[df$ID == id, ]
  p <- add_trace(p,
                 x = sub_df$variable,
                 y = sub_df$value,
                 color = sub_df$Species[1],
                 text = sub_df$ID,
                 mode = "lines+markers",
                 hoverinfo = "text"
  )
}

# 设置对比悬停模式
p <- layout(p, hovermode = "x unified")
p

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