在r中的cutree之后找到層次聚類樹形圖中的簇數

Question

在樹形圖上使用cutree后，我有一些問題要找到簇的數量。 這是我的方法：

mat <- a huge matrix
hc <- (as.dist(mat), method = "average", members = NULL)  
#to cut the tree just 1 level below the maximum height
tree <- cutree(hc, h = hc$height[[length(hc$height)-1]])  

通過打印樹變量，我可以看到我的樹形圖被切割成兩個簇。 我還可以使用名稱（tree [tree == 1]）從每個群集中獲取標簽，但是如何在不查看數據的情況下獲取群集的數量？ 我想根據它在樹變量中擁有的簇數在管道中自動執行此操作。

Answer 1

最后我通過在剪切樹形圖之后在樹對象上運行循環來回答我的問題，但這可能不是最佳解決方案。 並隨時提出修改建議以使其更優雅。

clust <- c()
for (i in 1:length(tree)){
clust[i] <- tree[[i]]
}
length(unique(clust))  

根據我的知識，這可能應該給出答案。
謝謝