树丛中的簇标签

Question

我想知道 - 有什么方法可以将聚类标签添加到树状图中。见简单示例：

<android.support.design.widget.BottomNavigationView
    android:id="@+id/bottom_navigation"
    android:layout_width="match_parent"
    android:layout_height="wrap_content"
    android:layout_alignParentBottom="true"
    android:background="@android:color/white"
    app:elevation="0dp"
    app:menu="@menu/bottom_navigation_main" />

所需的输出应如下所示：

感谢您的任何建议！

Answer 1

您需要获取地点的坐标以放置您的群集＆＃39;标签：

第一轴：
当您调用rect.hclust时，您也可以分配结果，以便您可以使用它来查找聚类的开头（第一个从1开始，第2个从1开始，第一个开始，等等。

rh <- rect.hclust(hc, k = 3, border = "red")
beg_clus <- head(cumsum(c(1, lengths(rh))), -1)

第二轴：
你只想要在红色矩形之上，红色矩形位于你有k-1簇的高度的中间和你有k簇的高度。让我们说你的目标是距离的4/5而不是1/2：

y_clus <- weighted.mean(rev(hc$height)[2:3], c(4, 1))

放置标签：

text(x=beg_clus, y=y_clus, col="red", labels=LETTERS[1:3], font=2)

Answer 2

添加文字标签的替代方法是在mjcgraphics包中处理群集标签。请参阅https://github.com/drmjc/mjcgraphics和https://rdrr.io/github/drmjc/mjcgraphics/man/rect.hclust.labels.html

rect.hclust.labels(hc, k=3, border = 1 ) # adds labels to clusters