powered by
color_unique_labels(dend, ...)
x <- c(2011,2011,2012,2012,2015,2015,2015) names(x) <- x dend <- as.dendrogram(hclust(dist(x))) par(mfrow = c(1,2)) plot(dend) dend2 <- color_unique_labels(dend) plot(dend2)
Run the code above in your browser using DataLab