powered by
remove_nodes_nodePar(dend, ...)
dend <- USArrests[1:5,] %>% dist %>% hclust %>% as.dendrogram dend <- color_branches(dend, 3) par(mfrow = c(1,2)) plot(dend) plot(remove_branches_edgePar(dend))
Run the code above in your browser using DataLab