Annotate the distance on nodes of a dendrograms

Question

Consider a simple dendrogram like

dend <- 1:5 %>% dist %>% hclust %>% as.dendrogram

How can I annotate the distance (height) on the nodes? I looked up the dendextend package but it does not offer such a feature. However, I know I can the list of these distances from

heights <- as.list(dend %>% get_nodes_attr("height"))

Any help is highly appreciated.

Answer 1

Here's a simple example using hc2axes from the pvclust package:

# install.packages("pvclust") # install package if needed
plot(hc <- hclust(dist( mtcars[1:10, ])))
with(pvclust:::hc2axes(hc), 
     text(x.axis, y.axis, round(y.axis, 2), adj = c(.5, 1))
)