如何在igraph中提取社区的边缘列表？

【问题标题】：How to extract edge list of communities in igraph?如何在igraph中提取社区的边缘列表？
【发布时间】：2017-10-22 14:41:20
【问题描述】：

我使用 igraph 进行社区检测，当然它会在图表中绘制社区。我想做的是将每个计算作为边缘列表写入文本文件中。不幸的是，我在 igraph 中找不到执行此操作的任何函数。有人可以帮我解决这个问题吗？

karate <- make_graph("Zachary")
wc <- cluster_walktrap(karate)

【问题讨论】：

标签： r social-networking

【解决方案1】：

你可以得到诱导子图，把它变成一个边缘列表并写出来。我假设您希望保留顶点的原始编号，所以我添加了一行来做到这一点。

## Your setup
library(igraph)
karate <- make_graph("Zachary")
wc <- cluster_walktrap(karate)

###########  Answer #########
for(i in seq_along(wc)) { 
    Community = induced_subgraph(karate, wc[[i]])
    V(Community)$name <- wc[[i]]        ## To preserve original node numbers
    EL = as_edgelist(Community)
    FileName = paste0("Community", i, ".dat")
    write.table(EL, FileName, row.names=FALSE, col.names=FALSE, sep=",")
}

【讨论】：