# NOT RUN {
# }
# NOT RUN {
dend <- USArrests[1:5,] %>% dist %>% hclust("ave") %>% as.dendrogram
# reproduces "labels_colors<-"
# although it does force us to run through the tree twice,
# hence "labels_colors<-" is better...
plot(dend)
dend <- assign_values_to_leaves_nodePar(dend=dend, value = c(3,2), nodePar = "lab.col")
plot(dend)
dend <- assign_values_to_leaves_nodePar(dend, 1, "pch")
plot(dend)
# fix the annoying pch=1:
dend <- assign_values_to_leaves_nodePar(dend, NA, "pch")
plot(dend)
# adjust the cex:
dend <- assign_values_to_leaves_nodePar(dend, 19, "pch")
dend <- assign_values_to_leaves_nodePar(dend, 2, "lab.cex")
plot(dend)
str(unclass(dend))
get_leaves_attr(dend, "nodePar", simplify=FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace