パス本数を線の太さで表す
選手を表すノードを好みの色に変え、パス本数を線の太さで表します。
g <- simplify(g,remove.loops=T) #自己ループを削除 V(g)$size <- 25 #ノードを大きく V(g)$color <- "SkyBlue" #選手の色を水色に V(g)$frame.color <- "Blue" #縁取りは青 V(g)$color[1] <- "Yellow" #GKは黄色 E(g)$width <- E(g)$weight #線の太さはパス本数 E(g)$curved <- 0.5 #線を曲線にして見やすく E(g)$arrow.size <- 0.5 #矢印の大きさを調整 plot(g, layout=l)
図 3-1
何となく、どの選手にボールが集まっているか分かるようになってきました。