Re: 中心性・コミュニティ検出結果を出力するRコード (HIGUCHI Koichi) KH Coder 旧掲示板

こんにちは、樋口です。それぞれの語の中心性やコミュニティ検出結果をまと
めるRのコードは以下のようになります。共起ネットワークを「R Source」形
式で保存し、Rで実行してから、以下のRコードを実行して下さい。

#---------------------------------------------------------------------
# コミュニティ検出（betweenness）
com_b <- edge.betweenness.community(n2, directed=F)
com_b <- community.to.membership(
n2, com$merges, merge_step(n2,com_b$merges)
)

# コミュニティ検出（modularity）
com_m <- fastgreedy.community(n2, merges=TRUE, modularity=TRUE)
com_m <- community.to.membership(
n2, com_m$merges, merge_step(n2,com_m$merges)
)

# コミュニティ検出（random walks）
com_r <- walktrap.community(

n2,

weights=get.edge.attribute(n2, "weight")
)

# 1つのデータフレームにまとめる
cnt <- data.frame(
words = colnames(d)[
as.numeric( get.vertex.attribute(n2,"name") )
],
degree = degree(n2),
betweenness = betweenness(n2),
evcent = evcent(n2)$vector,
community_betweenness = as.character(com_b$membership),
community_modularity = as.character(com_m$membership),
community_randomwalks = as.character(com_r$membership)
)

print(cnt)
#---------------------------------------------------------------------