注释树状图节点上的距离。

Question

考虑一个简单的树状图，如

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

如何注释节点上的距离(高度)？我查找了dendextend包，但它没有提供这样的功能。然而，我知道我可以列出这些距离

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

任何帮助都是非常感谢的。

Answer 1

下面是一个从hc2axes包中使用pvclust的简单示例：

# 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))
)

​

​

Answer 2

在注释的帮助下，一个解决方案是：

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]))) 
}