次数中心度をノードの大きさに反映させる


#igraphのロード
library(igraph)

#n=50、p = 0.1の無向ランダムグラフを作成する。
g <- random.graph.game(50, p=0.1, direct=F)

#次数中心を計算する
c <- dgree(g)

#各vertexの次数中心度をvertexの大きさに反映させて描写
png("dgree.png")
 plot(g, vertex.size=c, main="random graph : n = 50, p = 0.1")
dev.off()