如何在R语言的Plotly热力图中添加行注释？

阿华AIGC实验室

2026-5-19

在R Plotly热力图中添加行注释的解决方案

我明白你想要给Plotly热力图的每行添加专属注释的需求——虽然add_annotation函数本身是通用的，但针对行的批量注释需要结合坐标计算来实现。下面我给你一个完整的可运行示例，你可以根据自己的数据和需求调整：

步骤1：准备示例数据

先模拟一份热力图数据，你可以替换成自己的真实数据：

library(plotly)

set.seed(123)
# 生成5行6列的随机热力数据
heat_data <- matrix(rnorm(30), nrow = 5, ncol = 6)
# 定义行名和列名
row_labels <- paste("数据行", 1:5)
col_labels <- paste("特征列", 1:6)

步骤2：绘制基础热力图

先创建不带注释的基础热力图：

base_heatmap <- plot_ly(
  x = col_labels,
  y = row_labels,
  z = heat_data,
  type = "heatmap",
  colors = "RdBu"
)

步骤3：批量添加行注释

核心思路是获取每行的y轴坐标，然后在每行的右侧（热力图范围外）添加注释：

# 1. 获取每行对应的y轴坐标：Plotly中离散y轴的坐标从0开始计数
y_coords <- seq_along(row_labels) - 1

# 2. 准备每行的注释文本（替换成你需要的内容）
row_annotations <- c(
  "该行是对照组数据",
  "此行为实验组A",
  "包含异常值需注意",
  "样本量最大的行",
  "补充说明：数据来自2024Q1"
)

# 3. 循环给每行添加注释
for (i in seq_along(y_coords)) {
  base_heatmap <- base_heatmap %>% add_annotation(
    x = length(col_labels),  # 注释放在最后一列的右侧
    y = y_coords[i],
    text = row_annotations[i],
    showarrow = FALSE,  # 不需要箭头指向行
    xanchor = "left",   # 注释文本左对齐
    xshift = 20,        # 向右偏移20像素，避免和热力图重叠
    font = list(size = 11, color = "#333")
  )
}

# 4. 调整布局，给右侧注释留出足够空间
final_plot <- base_heatmap %>% layout(
  margin = list(r = 180)  # 右侧边距，根据注释长度调整数值
)

# 查看最终图
final_plot