メモ：複雑ネットワーク

複雑ネットワークについて調べているのでメモ。

資料
http://users.dimi.uniud.it/~massimo.franceschet/networks/nexus/models.html
http://igraph.sourceforge.net/igraphbook/igraphbook-random.html
http://cytoscape.seesaa.net/category/1649860-1.html

• BAモデルでランダムグラフを生成する。

library(igraph)
g <- barabasi.game(100)
plot(g, layout=layout.kamada.kawai, vertex.size=3,  vertex.label=NA)

• ERモデルでグラフを生成して、グラフの属性も少しいじる。

n = 100
p = 1.5/n
g.erdos.renyi = erdos.renyi.game(n, p)
coords = layout.fruchterman.reingold(g.erdos.renyi)
d = get.diameter(g.erdos.renyi)

E(g.erdos.renyi)$color = "grey"
E(g.erdos.renyi)$width = 1
E(g.erdos.renyi, path=d)$color = "red"
E(g.erdos.renyi, path=d)$width = 2
V(g.erdos.renyi)$color  = "SkyBlue2"
V(g.erdos.renyi)[d]$color = "red"
plot(g.erdos.renyi, layout=coords, vertex.label = NA, vertex.size=3)