r - R 中按组划分的树状图的颜色分支(没有 h 或 k 元素)
问题描述
我想通过在数据框中定义的特定组为树状图的分支着色。
library(reshape2)
library(factoextra) # clustering visualization
library(dendextend)
#iris dataset
#defining colors
colori = rep(NA, length=length(iris$Species))
colori[which(iris$Species=="setosa")] = "red"
colori[which(iris$Species=="versicolor")] = "blue"
colori[which(iris$Species=="virginica")] = "yellow"
iris_dist <- dist(iris[ ,1:4],)
hc1_iris <- hclust(iris_dist,method = "average")
col_dendro_iris <- color_branches(as.dendrogram(hc1_iris),groupLabels =T, clusters = iris$Species,col=colori)
col_dendro_iris_plot <- plot(col_dendro_iris,main = "Dendrogram of normalized BLS\ncolored by manmade groups",labels = NULL,xlab = NULL)
编辑:当我这样做时它有效
pca_iris <- PCA(iris[ ,1:4])
colori = rep(NA, length=length(iris$Species))
colori[which(iris$Species=="versicolor")] = "red"
colori[which(iris$Species=="virginica")] = "yellow"
colori[which(iris$Species=="setosa")] = "blue"
# species <- iris$Species
iris_gr <- cbind(iris,colori)
#
pca_iris <- fviz_pca_ind(pca_iris,
pointshape = 21,habillage = iris$Species,
geom.ind = c("point"),geom = c("point"),palette = iris$colori,
title="PCA of normalized BLS\ncolored by manmade groups")
pca_iris<- pca_iris + theme(legend.position = "upper.right")
只为未来的读者。但实际上我无法以模拟方式为树状图着色。我没有用于定义集群的k
or元素。h
就像在 iris 中一样,我已经预定义了要着色的集群。
解决方案
推荐阅读
- xml - XML - 使用 XSLT 根据 XSD 模式按顺序重新排列节点
- javascript - 如何在reactjs的递归组件中切换类onCLick?
- twilio - Twilio 聊天是否支持录制音频消息
- python - 在 Keras 中使用 GRU 的 RNN
- javascript - 为表格导航 VUEJS 创建面包屑
- angular - Angular 4+ 多属性搜索
- regex - 无法匹配 | 之间的字符串 在 Perl 中
- swift - 将右约束添加到具有可变宽度的两个标签
- python - 使用 django 和 JWT 在 N 分钟后重新登录
- javascript - jquery 不工作按钮单击我不知道为什么