# define dendrogram object to play with:
dend <- as.dendrogram(hclust(dist(USArrests[1:5,])))
par(mfrow = c(1,3))
plot(dend)
plot(rank_branches(dend))
plot(hang.dendrogram(rank_branches(dend)))Run the code above in your browser using DataLab