Last chance! 50% off unlimited learning
Sale ends in
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