# NOT RUN {
library(dendextend)
set.seed(23235)
ss <- sample(1:150, 10 )
# Getting the dend dend
dend <- iris[ss,-5] %>% dist %>% hclust %>% as.dendrogram
dend %>% plot
this is the basis for branches_attr_by_labels
has_any_labels <- function(sub_dend, the_labels) any(labels(sub_dend) %in% the_labels)
cols <- noded_with_condition(dend, has_any_labels,
the_labels = c("126","109", "59")) %>%
ifelse(2,1)
set(dend, "branches_col", cols) %>% plot
# Similar to branches_attr_by_labels - but for heights!
high_enough <- function(sub_dend, height) attr(sub_dend, "height") > height
cols <- noded_with_condition(dend, high_enough, height = 1) %>% ifelse(2,1)
set(dend, "branches_col", cols) %>% plot
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab