## Not run:
#
# library(dendextend)
# library(ape)
# dend <- iris[1:30,-5] %>% dist %>% hclust %>% as.dendrogram
# dend2 <- as.phylo(dend)
# plot(dend2, type = "fan")
#
#
# # Also possible to with ggplot2 :)
#
# library(dendextend)
# library(ggplot2)
# library(ggdendro)
# dend <- iris[1:30,-5] %>% dist %>% hclust %>% as.dendrogram
# # Rectangular lines
# ddata <- dend %>% dendro_data(type = "rectangle")
# p <- ggplot(segment(ddata)) +
# geom_segment(aes(x = x, y = y, xend = xend, yend = yend)) +
# coord_flip() +
# scale_y_reverse(expand = c(0.2, 0)) + coord_polar(theta="x")
# p
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab