メモ:複雑ネットワーク
複雑ネットワークについて調べているのでメモ。
資料
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)