R 边缘介数社区分界点

我试图找出如何在igraph中为边介数社区算法设置一个截止点。下面的示例代码返回24个拆分，例如，要返回10个拆分，我需要做些什么

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

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

g01您可以使用
cutat（…）
：

库（igraph）
设定种子（1）#用于再现性
g01返回24个组，因为默认情况下返回模块化分数最高的分割。
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])