r - 改变树状图的叶子

Question

我想修改从hclust对象的图生成的树状图中的叶子的属性。最低限度，我想更改颜色，但是您可以提供的任何帮助将不胜感激。

我确实尝试用谷歌搜索答案，但是我看到的每个解决方案似乎都比我想像的要难得多。

Answer 1

不久前，乔里斯·梅斯(Joris Meys)好心地为我提供了此代码片段，该代码片段可改变叶子的颜色。对其进行修改以反射(reflect)您的属性。

clusDendro <- as.dendrogram(Clustering)
labelColors <- c("red", "blue", "darkgreen", "darkgrey", "purple")

## function to get colorlabels
colLab <- function(n) {
   if(is.leaf(n)) {
       a <- attributes(n)
       # clusMember - a vector designating leaf grouping
       # labelColors - a vector of colors for the above grouping
       labCol <- labelColors[clusMember[which(names(clusMember) == a$label)]]
       attr(n, "nodePar") <- c(a$nodePar, lab.col = labCol)
   }
   n
}

## Graph
clusDendro <- dendrapply(clusDendro, colLab)
op <- par(mar = par("mar") + c(0,0,0,2))
plot(clusDendro,
     main = "Major title",
     horiz = T, type = "triangle", center = T)

par(op)