r - デンドログラムのノードの距離に注釈を付ける

Question

次のような単純なデンドログラムを考えてみましょう

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

ノードの距離 (高さ) に注釈を付けるにはどうすればよいですか? パッケージを調べましたdendextendが、そのような機能は提供されていません。ただし、これらの距離のリストを

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

どんな助けでも大歓迎です。

Answer 1

コメントの助けを借りて、1つの解決策は次のとおりです。

heights <- get_nodes_attr(HC[[i]], "height")
heights <- as.list(sort(heights))
heights[which(heights ==0)] <- NULL
for (node in 1: length(heights)){
  with(pvclust:::hc2axes(as.hclust(dend)),
    text(x.axis[node], y.axis[node], pos = 1, sprintf("%.2f", heights[node]))) 
}