新ネットワーク思考 世界のしくみを読み解く

著 アルバート＝ラズロ・バラバシ

スケールフリー・ネットワーク

A 成長
与えられた期間ごとに新しいノードを一つずつネットワークに付け加えてゆく。この手続きは、ネットワークは一度に一つだけノードを増やすという点を強調するものである。
B 優先的選択
新しいノードは既存のノードと二つのリンクで結ばれるものと仮定する。あるノードが選択される確率は、そのノードがすでに獲得しているリンク数に比例する。二つのノードから一つを選ぶ場合であれば、一方が他方より二倍多いリンクをもつなら、そのノードが選ばれる可能性は他方の二倍になる。

networkD3::simpleNetwork

library(igraph)
library(linkcomm)
library(networkD3)

n <- 100
nw <- get.data.frame(barabasi.game(n))  # バラバシ-アルバートモデル
simpleNetwork(nw, zoom = TRUE, nodeColour = "orange")

DT::datatable

nw.tbl <- table(as.matrix(nw))
datatable(as.data.frame(sort(nw.tbl, dec = T)))

barplot

barplot(sort(nw.tbl, dec = T), col = "orange", border = FALSE)

plot(nw.tbl)

plot(nw.tbl, col = "orange")

wordcloud2

library(wordcloud2)
wordcloud2(sort(nw.tbl, dec = T), rotateRatio = 0, size = 2)

お陰様 ネットワーク分析をもうちょっと勉強