在R的pheatmap中设置热图图例的固定范围

你遇到的问题核心是：legend_breaks和legend_labels仅负责调整图例的显示刻度，并不会改变颜色与数值的映射逻辑。要实现固定-2到2的颜色区间、自动截断超出值的需求，需要从数据预处理和颜色映射参数设置两方面调整：

核心思路 #

1. 手动完成列标准化并截断数据：替代pheatmap自带的scale="column"，避免内部标准化产生超出[-2,2]范围的值；
2. 使用breaks参数定义颜色与数值的映射关系：这才是控制颜色范围的关键参数，而非仅控制图例显示的legend_breaks。

完整代码示例 #

# 1. 预处理数据：列标准化+截断超出值
scaled_data <- t(scale(t(temp_m[,8:ncol(temp_m)])))  # 手动执行列标准化
scaled_data[scaled_data > 2] <- 2                     # 超出2的值强制设为2
scaled_data[scaled_data < -2] <- -2                   # 低于-2的值强制设为-2

# 2. 定义颜色序列与对应数值断点
heat_colors <- colorRampPalette(c("navy", "white", "red"))(20)
color_breaks <- seq(-2, 2, length.out = 21)  # 断点数量=颜色数量+1，确保一一对应

# 3. 绘制热图
pheatmap(scaled_data,
    annotation_colors = ann_colors,
    color = heat_colors,
    breaks = color_breaks,  # 关键参数：绑定颜色与[-2,2]的数值范围
    main = "Temp",
    cluster_rows = FALSE,
    cluster_cols = FALSE,
    show_rownames = FALSE,
    gaps_row = gaps,
    angle_col = 90,
    border_color = "grey",
    legend_breaks = c(-2, -1, 0, 1, 2),  # 自定义图例显示的关键刻度
    legend_labels = c("-2", "-1", "0", "1", "2"),
    annotation_row = rows,
    fontsize = 11, 
    cellwidth = 10, 
    cellheight = 10)

参数说明 #

• 手动标准化+截断：确保所有数据点严格落在[-2,2]区间内，避免pheatmap内部标准化后出现超出范围的数值；
• breaks参数：通过生成21个断点（对应20种颜色），直接定义颜色与数值的映射规则，让整个热图的颜色范围固定在目标区间；
• legend_breaks：此时仅用于简化图例显示，只保留关键刻度标签，提升可读性。

调整后，不同时间点的热图将共用完全一致的颜色标尺，对比起来更直观准确。

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