## 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