r - 如何分配热图颜色范围

这个问题类似于这一个我回答。这是关于highcharter包装中的热图的。区别在于highcharter分配颜色更方便。我使用相同的概念来解决这种heatmap.2情况。

样本数据

x <- rnorm(1000, 2, 1.5)
x[x < -2] <- -2
x[x > 6] <- 6
mat <- matrix(x, 20, 50)

描述

首先，使用symkey = F, symbreaks = Fin heatmap.2可以使色键不对称。然后，您需要找到指定值（即0）在数据中的位置。通过以下公式，您可以得到一个介于0〜1之间的值，以表示某个值的位置。

在这种情况下，(0-(-2))/(6-(-2))为0.25。如果有100个断点，则需要将100 * 0.25 = 25红色和100 - 25 = 75蓝色连接起来。您会发现白色将与零保持一致。

library(gplots)
library(RColorBrewer)

hmcol <- function(n){
  colfun1 <- colorRampPalette(rev(brewer.pal(9, "Reds")))
  colfun2 <- colorRampPalette(brewer.pal(9, "Blues"))
  p <- (0 - min(mat)) / (max(mat) - min(mat))
  gap <- n * p
  c(colfun1(floor(gap)), colfun2(n - gap))
}

heatmap.2(mat, trace = "none", symkey = F, symbreaks = F, col = hmcol(50))

您可以设置任意数量的hmcol()指示断点的数量。（你可以尝试col = hmcol(10)和col = hmcol(100)看到的不同。）