情報学特殊講義A_09回（コミュニティ、鈴木努『ネットワーク分析 第2版 (Rで学ぶデータサイエンス) 』共立出版、2017年参照）

linkcomm.R

# ライブラリの準備
install.packages("igraph")
install.packages("linkcomm")
library(igraph)
library(linkcomm)

# データの準備
d <- read.csv("08_imotodesse.csv", header=T)
g <- d[1:2]

# 分割密度が最大になるようなリンクコミュニティの分割
lc <- getLinkCommunities(g, directed = T)

# 結果の出力
print(lc)

# 各ノードがどのリンクコミュニティに属するかを出力
write.csv(lc$nodeclusters, "community.csv", fileEncoding = "CP932")