R语言superheat热图图例优化：解决低值端颜色压缩问题

我使用superheat制作的热图包含大量极低值与少量极高值，所用颜色能较好呈现数据，但图例的低值端颜色被压缩，难以辨认。想知道是否可以将图例设置为对数刻度形式，清晰展示低值端的紫、蓝等颜色及对应数值？我曾尝试使用legend.breaks参数，但仅改变了图例上的数字位置，未解决问题。

示例代码 #

library(superheat)
superheat(mtcars)

尝试过的代码 #

superheat(mtcars,
legend.breaks = c(min(mtcars), 0, max(200)))

方法1：数据对数变换 + 图例标签还原 #

针对数据分布极端的情况，先对原始数据做对数变换，再绘制热图，同时将图例标签还原为原始数据数值，这样图例刻度会更均匀，低值端颜色区分度大幅提升：

library(superheat)
library(scales)

# 对数据做对数变换（加微小常数避免0值报错，无0值可省略）
log_data <- log(mtcars + 1e-6)

superheat(log_data,
          # 设置图例breaks为对数变换后的对应刻度点
          legend.breaks = log(c(1, 10, 50, 100, 200) + 1e-6),
          # 将图例标签还原为原始数据的数值
          legend.labels = c("1", "10", "50", "100", "200"),
          heat.pal = viridis::viridis(100) # 可选：viridis配色对低值区分更友好
)

方法2：直接自定义对数刻度图例（不修改原始数据） #

如果不想变换原始数据，可以生成对数间隔的刻度点，配合legend.labels标注对应数值，让图例刻度贴合数据的对数分布：

library(superheat)

# 生成覆盖数据范围的对数间隔刻度点
log_breaks <- exp(seq(log(min(mtcars)), log(max(mtcars)), length.out = 5))

superheat(mtcars,
          legend.breaks = log_breaks,
          # 格式化标签，保留整数
          legend.labels = round(log_breaks, 0),
          heat.pal = viridis::viridis(100)
)

关键提示 #

• legend.breaks必须对应热图使用的实际数据值：如果做了对数变换，breaks也要用变换后的值；如果用原始数据，breaks就得是原始数据的对数间隔点；
• 若数据包含0值，做对数变换时务必加入微小常数（如1e-6）避免报错；
• 选择区分度高的配色（如viridis）能进一步提升低值端颜色的辨识度。

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