## 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab