如何将字符串变量添加到具有按因子水平着色的标签的树状图？

Question

this question 的答案之一对鸢尾花数据集子集的树状图标签进行了颜色编码。我想做的是保留标签的字符串名称，以便他们用颜色表示 setosa, virginica etc.along。

这是代码

# install.packages("dendextend")
library(dendextend)

small_iris <- iris[c(1, 51, 101, 2, 52, 102), ]
dend <- as.dendrogram(hclust(dist(small_iris[,-5])))
# Like: 
# dend <- small_iris[,-5] %>% dist %>% hclust %>% as.dendrogram

# By default, the dend has no colors to the labels
labels_colors(dend)
par(mfrow = c(1,2))
plot(dend, main = "Original dend")

# let's add some color:
colors_to_use <- as.numeric(small_iris[,5])
colors_to_use
# But sort them based on their order in dend:
colors_to_use <- colors_to_use[order.dendrogram(dend)]
colors_to_use
# Now we can use them
labels_colors(dend) <- colors_to_use
# Now each state has a color
labels_colors(dend) 
plot(dend, main = "A color for every Species")

Answer 1

您需要在绘图之前更新标签。例如使用 labels(dend) <- small_iris[,5][order.dendrogram(dend)]

完整代码和输出：

# install.packages("dendextend")
library(dendextend)

small_iris <- iris[c(1, 51, 101, 2, 52, 102), ]
dend <- as.dendrogram(hclust(dist(small_iris[,-5])))
# Like: 
# dend <- small_iris[,-5] %>% dist %>% hclust %>% as.dendrogram

# By default, the dend has no colors to the labels
labels_colors(dend)
par(mfrow = c(1,2))
plot(dend, main = "Original dend")

# let's add some color:
colors_to_use <- as.numeric(small_iris[,5])
colors_to_use
# But sort them based on their order in dend:
colors_to_use <- colors_to_use[order.dendrogram(dend)]
colors_to_use
# Now we can use them
labels_colors(dend) <- colors_to_use
# Now each state has a color
labels_colors(dend) 

### UPDATE <--------------------------------
labels(dend) <- small_iris[,5][order.dendrogram(dend)]


plot(dend, main = "A color for every Species")

如何将字符串变量添加到具有按因子水平着色的标签的树状图？

How do I add string variables to a dendrogram with labels coloured by factor level?

r

cluster-analysis

dendrogram

dendextend