powered by
leaf_Colors(d, col_to_return = c("edge", "node", "label"))
slice,color_branches
dend <- as.dendrogram(hclust(dist(USArrests), "ave")) d5=color_branches(dend,5) leaf_Colors(d5)
Run the code above in your browser using DataLab