## Not run:
# hc <- hclust(dist(USArrests), "ave")
# dend <- as.dendrogram(hc)
# dend=color_labels(dend,5, col = c(3,1,1,4,1))
# dend=color_branches(dend,5, col = c(3,1,1,4,1))
# plot(dend) # selective coloring of branches AND labels :)
#
# # coloring some labels, based on label names:
# dend=color_labels(dend,col = "red", labels = labels(dend)[c(4,16)])
# plot(dend) # selective coloring of branches AND labels :)
#
# d5=color_branches(dend,5)
# plot(d5)
# d5g=color_branches(dend,5,groupLabels=TRUE)
# plot(d5g)
# d5gr=color_branches(dend,5,groupLabels=as.roman)
# plot(d5gr)
#
# ## End(Not run)
Run the code above in your browser using DataLab