边缘社区切断点

时间:2014-07-12 17:57:10

标签: r igraph edge

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

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

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

谢谢

1 个答案:

答案 0 :(得分:0)

您可以使用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(...)与层次聚类一起使用。

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