require(dendextend)
require(magrittr)
# Getting the dend dend
set.seed(23235)
ss <- sample(1:150, 10 )
dend <- iris[ss,-5] %>% dist %>% hclust %>% as.dendrogram
dend %>% plot
which_leaf(dend)Run the code above in your browser using DataLab