关于 r:Change Dendrogram 叶子 | 珊瑚贝

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)

# define dendrogram object to play with:
dend <- as.dendrogram(hclust(dist(USArrests[1:3,]),”ave”))
# loading the package
install.packages(‘dendextend’) # it is now on CRAN
library(dendextend)# let’s add some color:
labels_colors(dend) <- 2:4
labels_colors(dend)
plot(dend)