如何在矩阵对角线上绘制标签？

Question

我想知道是否可以将此热图中的垂直标签传输到其对角线索引内。

tmp <- matrix(rnorm(100),10,10)
tmp <-dist(tmp)
heatmap(as.matrix(tmp), Rowv = NA, Colv = NA,scale='none')

我想得到类似的东西：

Answer 1

您可以使用image和text：

tmp <- matrix(rnorm(100),10,10)
tmp <-dist(tmp)
image((as.matrix(tmp)))
text(0:9/9, 0:9/9, 0:9) 

为了更好地控制，您应该使用heatmap.2包中的gplots：

library(gplots)
tmp <- matrix(rnorm(100),10,10)
tmp <-dist(tmp)
heatmap.2((as.matrix(tmp)),dendrogram = "none",
          cellnote=round(as.matrix(tmp),2),notecol='black')