dend <- as.dendrogram(hclust(dist(USArrests[1:5,])))
dend <- color_labels(dend, 3)
par(mfrow = c(1,2))
plot(dend)
plot(remove_leaves_nodePar(dend))
get_leaves_attr(dend, "nodePar")
get_leaves_attr(remove_leaves_nodePar(dend), "nodePar")Run the code above in your browser using DataLab