# NOT RUN {
### Demonstrate ggdendrogram
library(ggplot2)
hc <- hclust(dist(USArrests), "ave")
# Demonstrate plotting directly from object class hclust
p <- ggdendrogram(hc, rotate=FALSE)
print(p)
ggdendrogram(hc, rotate=TRUE)
# demonstrate converting hclust to dendro using dendro_data first
hcdata <- dendro_data(hc)
ggdendrogram(hcdata, rotate=TRUE, size=2) + labs(title="Dendrogram in ggplot2")
# }
Run the code above in your browser using DataLab