Я пытаюсь создать простую тепловую карту с помощью пакета ComplexHeatmap, но row_title_side, похоже, не работает или я что-то упустил?
воспроизводимый пример:
set.seed(1)
mat = matrix(rnorm(64), 8)
colnames(mat) = letters[1:8]
labels <- colnames(mat)
mat2 = cor(mat)
od = hclust(dist(mat2))$order
mat2 = mat2[od, od]
Heatmap(
mat2,
col = colorRamp2(c(-1, 0, 1), c("red", "white", "green")),
cluster_rows = FALSE,
cluster_columns = FALSE,
heatmap_legend_param = list(title = "Cor"),
rect_gp = gpar(type = "none"),
row_title_side = 'left',
cell_fun = function(j, i, x, y, w, h, col) {
if (i > j) {
grid.rect(x, y, w, h, gp = gpar(fill = col))
grid.text(sprintf("%.2f", mat2[i, j]), x, y)
}
}
)
С кодом выше я получаю это: 