Я пытаюсь извлечь цвета, используемые в кластеризации circlize_dendrogram
. Вот пример кода:
library(magrittr)
library(dendextend)
cols <- c("#009000", "#FF033E", "#CB410B", "#3B444B", "#007FFF")
dend <- iris[1:40,-5] %>% dist %>% hclust %>% as.dendrogram
dend <- color_branches(dend, k = 5, col = cols)
dend %<>% set("labels_col", value = cols, k= 5)
dend %<>% set("labels_cex", .8)
dend %<>% set("branches_lwd", 2)
circlize_dendrogram(dend)
Чтобы таблицы с таблицами были извлечены с помощью cutree(dend, k = 5)
. Есть ли способ извлечь цвета кластеров в дендрограмме на основе cols
? Мне нужно это для вставки легенды в сюжет с использованием пакета grid
.
Пример, Легенда: Кластер 1 - #009000
; Кластер 2 - #FF033E
; Кластер 3 - #CB410B
; Кластер 4 - #3B444B
; Кластер 5 - #007FFF
. Проблема с circlize_dendrogram
заключается в том, что порядок цветов, используемых для кластера, отличается.
Хотя я могу сделать это вручную, было бы эффективно, если бы я мог сделать это автоматически. И это возможно, если я смогу извлечь цвета кластеров.