dat <- iris[1:20, -5]
hca <- hclust(dist(dat))
hca2 <- hclust(dist(dat), method = "single")
dend <- as.dendrogram(hca)
dend2 <- as.dendrogram(hca2)
dend %>%
set("branches_lwd", 2) %>%
set("branches_lty", 2) %>%
plot()
dend %>%
set("branches_lwd", 2) %>%
set("branches_lty", 2) %>%
has_edgePar("lty")
dend %>%
set("branches_lwd", 2) %>%
has_edgePar("lty")
dend %>%
set("branches_lwd", 2) %>%
has_edgePar("lwd")
dend %>%
set("branches_lwd", 2) %>%
set("clear_branches") %>%
has_edgePar("lwd")
Run the code above in your browser using DataLab