Get an attribute of the branches of a dendrogram's leaves

This is helpful to get the attributes of branches of the leaves. For example, after we use color_branches, to get the colors of the labels to match (since getting the colors of branches to match those of the labels can be tricky). This is based on get_leaves_edgePar.

get_leaves_branches_attr(dend, attr = c("col", "lwd", "lty"), ...)

Arguments

dend

a dendrogram object

attr

character, the attr to get. Can be either "col", "lwd", or "lty".

...

not used

Value

A vector with the dendrogram's leaves nodePar attribute

See also

get_nodes_attr, assign_values_to_leaves_nodePar, labels_colors get_leaves_nodePar, get_leaves_edgePar

Examples

# define dendrogram object to play with:
hc <- hclust(dist(USArrests[1:5, ]), "ave")
dend <- as.dendrogram(hc)

dend <- dend %>%
  color_branches(k = 3) %>%
  set("branches_lwd", c(2, 1, 2)) %>%
  set("branches_lty", c(1, 2, 1))

plot(dend)


get_leaves_branches_attr(dend, "col")
#> [1] "#CC476B" "#228B00" "#228B00" "#0082CE" "#0082CE"
get_leaves_branches_attr(dend, "lwd")
#> [1] 1 1 2 1 2
get_leaves_branches_attr(dend, "lty")
#> [1] 2 2 1 2 1

labels_colors(dend) <- get_leaves_branches_attr(dend, "col")
plot(dend)