ComplexHeatmap row_title_side не работает - PullRequest
0 голосов
/ 18 октября 2019

Я пытаюсь создать простую тепловую карту с помощью пакета 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)
    }
  }
)

С кодом выше я получаю это: heatmap_image

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...