r - R pheatmap：在图例中使用对数缩放

Question

我有一个矩阵

library(pheatmap)
set.seed(1)
mat <- matrix(rexp(200, rate=.001), ncol=20)
pheatmap(mat)

并且有一个值比其他值高得多。因此，我想对图例栏使用对数缩放（1、10、100、1000，...）。

有没有可能用pheatmap包做到这一点？

编辑：我不想做log(mat)，我只希望颜色缩放条被缩放对数（1、10、100、1000，...）。

Answer 1

只需添加对数legend_breaks并显示最大值标签。

pheatmap::pheatmap(mat, legend_breaks=c(10^(0:ceiling(log10(max(mat)))), 
                                        round(max(mat), 2)))

屈服