# define dendrogram object to play with:
dend <- USArrests[1:5, ] %>%
dist() %>%
hclust() %>%
as.dendrogram()
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