改变树状图离开

Question

我想修改从hclust对象的绘图生成的树形图中的叶子的属性.最低限度,我想改变颜色,但您可以提供的任何帮助将不胜感激.

我确实尝试过谷歌答案,但我看到的每一个解决方案似乎都比我猜想的要难得多.

Answer 1

不久之前,Joris Meys友好地为我提供了这段改变叶子颜色的代码片段.修改它以反映您的属性.

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)