dendrogram - 基于缠结图中类别的颜色节点
问题描述
我正在尝试使用 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))
解决方案
推荐阅读
- swift - 是否可以使用 JetBrains AppCode 在 Windows 上编写 Swift 代码?
- java - Spring Boot 千分尺计数已取消
- python - Python:我在哪里可以找到像 Anaconda Navigator 的“gf”这样的软件包,我该如何安装它们?Python 3.6 版
- javascript - 如何动态地将元素添加到对象数组中?
- c# - 是否可以在不修改 Program.cs 的情况下发布适用于 Linux 和 Windows 的 .Net Core Worker 服务?
- git - 当它在另一个连接上正常工作时,如何通过连接诊断 Git / Git-lfs 源推送问题?
- swift - Swift材料组件填充文本字段背景颜色不起作用
- regex - .htaccess - 递归地将斜杠映射到下划线
- javascript - 第一次单击后不会触发 Jquery 单击事件
- ios - Swift Dictionary UIPickerView (key) 和 (value) Swift