如何繪製矩陣對角線中的標籤？

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')