边缘社区切断点

Question

我试图弄清楚如何在igraph中设置边缘中介社区算法的截止点。下面的示例代码返回24个拆分，例如，我需要做什么来返回10？

g01 <- erdos.renyi.game(100, 1/10, directed = FALSE)

bc <- edge.betweenness.community(g01)
plot(g01, vertex.color=membership(bc))
bc

谢谢

Answer 1

您可以使用cutat(...)：

library(igraph)
set.seed(1)     # for reproducibility
g01 <- erdos.renyi.game(100, 1/10, directed = FALSE)

bc <- edge.betweenness.community(g01)
cut <- cutat(bc,10)
colors <- rainbow(10)
plot(g01, vertex.color=colors[cut])

您的bc是一个分层community对象，可以使用cutat(bc,n)剪切该对象以提供n个群集。这类似于将cutree(...)与层次聚类一起使用。

我只使用彩虹色，否则主色是黑色。