如何在 的树状图中画一条线对应最好的K 对于给定的标准?
像这样:
让我们假设这是我的树状图,最好的 K 是 4。
data("mtcars")
myDend <- as.dendrogram(hclust(dist(mtcars)))
plot(myDend)
我知道
abline
函数能够在图形中绘制类似于上面显示的线条。但是,我不知道如何计算高度,因此将函数用作 abline(h = myHeight)
最佳答案
获取高度所需的信息来自 hclust
.它有一个包含高度的变量。要获得 4 个集群,您需要在第 3 大高度和第 4 大高度之间画一条线。
HC = hclust(dist(mtcars))
myDend <- as.dendrogram(HC)
par(mar=c(7.5,4,2,2))
plot(myDend)
k = 4
n = nrow(mtcars)
MidPoint = (HC$height[n-k] + HC$height[n-k+1]) / 2
abline(h = MidPoint, lty=2)
关于r - 如何在最佳 K 处排列(剪切)树状图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49091292/