dendrogram - 基于缠结图中类别的颜色节点

Question

我正在尝试使用 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))