如何监督集群数量（R）？

我有一个有向图（顶点=20，边在结果上使用

cutat

，得到4个簇。不过，它们不太可能每个都有5个顶点。@GaborCsardi，谢谢你的评论。我已经更新了我的问题，并尝试应用你的建议。在结果上使用

cutat

，得到4个簇。不过，它们不太可能每个都有5个顶点。@Gab奥克萨迪，谢谢你的评论。我已经更新了我的问题，并尝试应用你的建议。

ga.data<- read.csv('q2_4.csv', header=TRUE) 
g <- graph.data.frame(ga.data, directed=TRUE)
gnc <- edge.betweenness.community(g, directed=TRUE)

windows()
plot(gnc, g, vertex.frame.color="black", edge.color="black",
edge.arrow.size=0.5, edge.width=.1, vertex.label.font=NA)

# print the lables of vertices 

for (i in 1: length(gnc)) {
print(V(g2)[clusters(g2)$membership == i])
}

#    + 14/20 vertices, named:
#     [1] A19 A15 A09 A16 A20 A01 A06 A13 A10 A18 A08 A14 A02 A03
#    + 1/20 vertex, named:
#    [1] A17
#    + 1/20 vertex, named:
#    [1] A11
#    + 3/20 vertices, named:
#    [1] A12 A04 A07
#    + 1/20 vertex, named:
#    [1] A05   

print(gnh<- cutat(gnc, no = 4)) # set number of clusters = 4
#[1] 1 1 3 4 2 1 1 2 1 1 2 1 1 1 1 1 1 1 1 1