цветовой узел на основе категории в запутанной диаграмме - PullRequest
Новая
       128

цветовой узел на основе категории в запутанной диаграмме

0 голосов
/ 03 декабря 2018

Я пытаюсь построить путевую диаграмму, используя dendextra и ggdendro, но я не могу покрасить узлы на основе столбца категории в путевой диаграмме.Пожалуйста, порекомендуйте.

d1 <- c(1:5)
cate <- c("cat1", "cat2", "cat3", "cat1", "cat1")
d1 <- data.frame(d1, cate)

d2 <- c(1:5)
cate <- c("cat2", "cat3", "cat3", "cat1", "cat1")
d2 <- data.frame(d2, cate)

e1 <- dist(d1$d1)
e1 <- hclust(e1, method = "average")
dend <- as.dendrogram(e1)

f1 <- dist(d2$d2)
f1 <- hclust(f1, method = "average")
dend2 <- as.dendrogram(f1)

t <- dendlist(dend, dend2)
tanglegram(t, fast = TRUE) %>% set("nodes_col", (d1$cate))
...