igraphでコミュニティのエッジリストを抽出する方法は？

Question

私はコミュニティ検出のためにigraphを使用していますが、もちろんそれはグラフ内のコミュニティをプロットしています。 私がしたいのは、各計算をエッジリストとしてテキストファイルに書き込むことです。残念ながら、私はigraphでこれを行う関数を見つけることができませんでした。 誰かがこれを手伝ってくれますか？

​​

Answer 1

誘発されたサブグラフを取得し、それをedgelistに変換して書き出すことができます。頂点の元の番号付けを保持したいと仮定しているので、それを行う行を追加しました。

## 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=",") 
}