创建具有下三角形作为热图和上三角形字符数据的二次矩阵

Question

我有以下（示例）数据，我想绘制： matrix(c("Variable1",0.4,0.5,"string1","Variable2",0.3, "string2","string3","Variable3"),ncol=3)

我想用矩阵的数字0.4,0.5,0.3 创建热图并使用下三角：

  numeric<- matrix(c(1,0.4,0.5,0.4,1,0.3,0.5,0.3,1),ncol=3)
  require(graphics)
  require(grDevices)
  library(colorRamps)

  library(lattice)
  x <- seq(pi/4, 5*pi, length.out=10)
  y <- seq(pi/4, 5*pi, length.out=10)
  grid <- expand.grid(X=x, Y=y)

   myPanel <- function(x, y, z, ...) { 
   panel.levelplot(x,y,z,...)
   panel.text(x, y, round(z,2),cex=0.578,...)}
  levelplot(numeric,panel=myPanel)

在包括热图对角线的上三角形上，我想要字符，其值 "string1", "string2", "string3", "Variable1", "Variable2", "Variable3" 与给定矩阵中的网格位置相同！

我想以某种方式创建一个网格并使用图形包的image() 函数为数字着色，但这对我不起作用。

你有一个简单而优雅的函数，你只需要给定的矩阵作为输入吗？

Answer 1

您可以尝试ComplexHeatmap 包，通过它您可以自定义热图主体：

首先创建一个对称矩阵：

set.seed(123)
mat = matrix(rnorm(100), 10)
colnames(mat) = letters[1:10]

mat2 = cor(mat)

对行和列进行聚类和调整顺序：

od = hclust(dist(mat2))$order
mat2 = mat2[od, od]

现在我们可以自定义热图。在以下代码中，col 控制如何将值映射到颜色。 由于已经应用了聚类，我们将cluster_rows 和cluster_columns 设置为FALSE。 当type在gpar()中设置为none时，热图被初始化但没有添加任何内容， 然后我们可以使用自定义函数cell_fun来添加图形。

cell_fun 将应用于热图中的每个小网格。 在cell_fun 中，有七个参数：

• j：mat2 中的列索引
• i：mat2 中的行索引
• x：图上的位置
• y：图上的位置
• w: 当前网格的宽度
• h: 当前网格的高度
• col：当前网格的填充颜色

使用Heatmap() 生成最终的热图：

Heatmap(mat2, col = colorRamp2(c(-1, 0, 1), c("green", "white", "red")),
    cluster_rows = FALSE, cluster_columns = FALSE,
    heatmap_legend_title = "cor", rect_gp = gpar(type = "none"), 
    cell_fun = function(j, i, x, y, w, h, col) {
        if(i > j) {
            grid.rect(x, y, w, h, gp = gpar(fill = col))
        } else if(j == i) {
            grid.text(labels[i], x, y)
        } else {
            grid.text(sprintf("%.2f", mat2[i, j]), x, y)
        }
        grid.rect(x, y, w, h, gp = gpar(fill = NA, col = "black"))
    })