# NOT RUN {
# # ladderize is like sort(..., type = "node")
dend <- iris[1:5, -5] %>%
dist() %>%
hclust() %>%
as.dendrogram()
par(mfrow = c(1, 3))
dend %>%
ladderize() %>%
plot(horiz = TRUE)
abline(v = .2, col = 2, lty = 2)
dend %>%
collapse_branch(tol = 0.2) %>%
ladderize() %>%
plot(horiz = TRUE)
dend %>%
collapse_branch(tol = 0.2) %>%
ladderize() %>%
hang.dendrogram(hang = 0) %>%
plot(horiz = TRUE)
par(mfrow = c(1, 2))
dend %>%
collapse_branch(tol = 0.2, lower = FALSE) %>%
plot(horiz = TRUE, main = "dendrogram")
library(ape)
dend %>%
as.phylo() %>%
di2multi(tol = 0.2) %>%
plot(main = "phylo")
# }
Run the code above in your browser using DataLab