如何为ggheatmap生成的相关热图指定列添加边框？

关键思路 #

ggheatmap生成的热图，x轴对应列名的因子映射，直接用固定坐标的geom_rect会因坐标匹配问题失效，需基于目标列的位置动态计算矩形范围。

具体代码实现 #

1. 先定位目标列并计算坐标范围：

# 假设你的相关矩阵对象为cor_mat
col_pos <- which(colnames(cor_mat) == "quality")
# 热图每个列的坐标范围为 位置±0.5
x_min <- col_pos - 0.5
x_max <- col_pos + 0.5
# y轴覆盖所有行的范围
y_min <- 0.5
y_max <- nrow(cor_mat) + 0.5

2. 在热图代码中添加geom_rect（注意图层顺序，确保矩形不遮挡热图内容）：

ggheatmap(cor_mat, 
          # 保留你原有的热图参数，比如颜色映射、标注等
          ) +
  geom_rect(aes(xmin = x_min, xmax = x_max, ymin = y_min, ymax = y_max),
            color = "black", size = 1, fill = NA)

额外调整 #

如果只需勾勒该列中特定行的单元格，可单独修改y_min和y_max为对应行的位置±0.5，比如要选中第3行，就设置y_min=2.5, y_max=3.5。

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