It is useful to get the colors of branches of the leaves, after we use color_branches, so to then match the colors of the labels to that of the branches (since getting the colors of branches to match those of the labels can be tricky). This is based on get_leaves_branches_attr which is based on get_leaves_edgePar.
TODO: The function get_leaves_branches_col may behave oddly when extracting colors with missing col attributes when the lwd attribute is available. This may resolt in a vector with the wrong length (with omitted NA values). This might need to be fixed in the future, and attention should be given to this case.
a dendrogram object
A vector with the dendrogram's leaves' branches' colors
get_nodes_attr, assign_values_to_leaves_nodePar, labels_colors get_leaves_nodePar, get_leaves_edgePar, get_leaves_branches_attr
1 2 3 4 5 6 7 8 9 10 11 12 13 14
# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.