Как построить метки в диагональной матрице?

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