Я использую Heatmap.2 для получения треугольной тепловой карты (где верхняя часть матрицы удалена).
Я использовал этот код: my_data_t <- t( as.matrix(my_data) )
`cor.matrix <- cor( my_data_t, method = "spearman")`
`cor.matrix[upper.tri( cor.matrix )] <- NA`
`my.col <- c( "blue", "green", "yellow", "orange", "red" )`
`my.breaks <- c( 0, 0.2, 0.6, 0.8, 1 )`
`hm2 <- heatmap.2( cor.matrix, scale="none", Rowv=NA, Colv=NA,
col=my.col, breaks=my.breaks, margins(5,5),
cexRow=0.5,cexCol=1.0,key=TRUE,keysize=1.5,
trace="none")`
my_data было примерно таким: my_data <- "Taxon NO8.4 NO6.1 NO7.3 NO9.4 N09.7
a 0.1 0.05 0.01 0.2 0.06
b 0.0 0.8 0.8 0.0 0.0
c 0.7 0.0 0.0 0.0 0.1
d 0.0 0.01 0.08 0.0 0.09
e 0.0 0.0 0.0 0.0 0.0
f 0.09 0.05 0.01 0.04 0.0
g 0.07 0.7 0.0 0.01 0.08"
Теперь я хотел бы, чтобы цветовой ключ был справа от тепловой карты, и я хотел бы сделать его больше (как полоса справа от тепловой карты, такая же длинная). Возможно ли это в функции heatmap.2
??
Я также пытался использовать команду legend()
, но мне кажется, что она может генерировать только легенды блоков, по одному блоку для каждого цвета, поэтому нет уникальной боковой панели, верно??