R语言Plotly多热力图轨迹悬停文本异常及轨迹识别问题

要解决你遇到的色条名称重复、悬停文本异常的问题，核心是让Plotly明确识别两个独立的热力图轨迹，并精准控制每个轨迹的显示和悬停逻辑。以下是修改后的完整代码和关键说明：

修改后代码 #

library(tidyverse)
library(plotly)

# 生成样本数据
f <- combn(c("one","two","three","four"),2) %>%
  t() %>%
  as.data.frame() %>%
  rename(x=1,y=2) %>%
  mutate(v1 = rnorm(n(),5), v2 = rnorm(n(), 200, sd=55)) %>%
  arrange(x,y) %>%
  mutate(
    x = factor(x,c("one","two","three","four")),
    y = factor(y,c("four","three","two","one"))
  )

# 生成完整的x-y网格（包含所有配对，避免Plotly误判间隙）
full_grid <- expand_grid(
  x = factor(c("one","two","three","four"), c("one","two","three","four")),
  y = factor(c("four","three","two","one"), c("four","three","two","one"))
)

# 合并数据并填充缺失值，确保每个轨迹的z矩阵是完整方阵
f_full <- full_grid %>%
  left_join(f, by = c("x", "y")) %>%
  mutate(
    # 为上三角区域填充对应的v2值
    v2 = ifelse(is.na(v2), 
                f$v2[match(paste(y, x), paste(f$x, f$y))], 
                v2)
  )

# 定义色阶
lwr_scale <- list(list(0,"black"),list(1,"red"))
upr_scale <- list(list(0,"white"),list(1,"green"))

# 绘制热力图
f_full %>%
  plot_ly() %>% 
  add_trace(
    type = "heatmap",
    x = ~x,
    y = ~y,
    z = ~v1,
    colorscale = lwr_scale,
    name = "v1",
    # 设置独立色条标题
    colorbar = list(title = "v1"),
    # 自定义悬停文本：仅在有数据时显示
    hovertext = ifelse(!is.na(v1), paste("v1:", round(v1, 2)), ""),
    hoverinfo = "text",
    hoverongaps = FALSE
  ) %>%
  add_trace(
    type="heatmap",
    x = ~x,
    y = ~y,
    z = ~v2,
    colorscale = upr_scale,
    name = "v2",
    colorbar = list(title = "v2"),
    hovertext = ifelse(!is.na(v2), paste("v2:", round(v2, 2)), ""),
    hoverinfo = "text",
    hoverongaps = FALSE
  )

关键修改点说明 #

1. 构建完整数据网格
   原来的稀疏数据会让Plotly把无值区域判定为“间隙”，导致悬停异常。通过expand_grid生成所有x-y组合的完整网格，再填充对应数据，确保每个轨迹的z矩阵是完整方阵，避免误判。

2. 独立色条配置
   为每个轨迹的colorbar参数设置单独的title，解决色条显示重复变量名的问题，同时明确区分两个轨迹的色阶含义。

3. 自定义悬停逻辑
   通过hovertext仅在有数据的区域生成对应文本，配合hoverinfo = "text"和hoverongaps = FALSE，彻底解决悬停时出现NaN或无文本的问题，确保只有有效数据区域显示正确的悬停内容。

4. 明确轨迹名称
   设置name参数让Plotly清晰识别两个独立轨迹，避免默认的“trace 1”“trace 2”标识混淆。

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