#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()
