# NOT RUN {
# define dendrogram object to play with:
hc <- hclust(dist(USArrests[1:5, ]), "ave")
dend <- as.dendrogram(hc)
par(mfrow = c(1, 2), mar = c(5, 2, 1, 0))
dend <- dend %>%
color_branches(k = 3) %>%
set("branches_lwd", c(2, 1, 2)) %>%
set("branches_lty", c(1, 2, 1))
plot(dend)
labels_colors(dend) <- get_leaves_branches_col(dend)
plot(dend)
# }
Run the code above in your browser using DataLab