# NOT RUN {
dend <- USArrests[1:10,] %>% dist %>% hclust %>% as.dendrogram
par(mfrow =c(1,2), mar = rep(6,4))
plot_horiz.dendrogram(dend, side=FALSE) 
plot_horiz.dendrogram(dend, side=TRUE) 
# plot_horiz.dendrogram(dend, side=TRUE, dLeaf= 0) 
# plot_horiz.dendrogram(dend, side=TRUE, nodePar = list(pos = 1)) 
# sadly, lab.pos is not implemented yet, 
## so the labels can not be right aligned...
plot_horiz.dendrogram(dend, side=F)
plot_horiz.dendrogram(dend, side=TRUE, dLeaf=0, xlim = c(100,-10)) # bad
plot_horiz.dendrogram(dend, side=TRUE, text_offset = 0)
plot_horiz.dendrogram(dend, side=TRUE, text_offset = 0,text_pos=4)
# }
Run the code above in your browser using DataLab