パス本数を線の色で表す
カラーパレットを準備します。
library(RColorBrewer) display.brewer.all()
図 4-1
上から8番目の "PuRd" を使って、パス本数によって線の色を変えます。
cols <- brewer.pal(9, "PuRd") E(g)$color <- ifelse(E(g)$weight>10,cols[9], ifelse(E(g)$weight>8,cols[8], ifelse(E(g)$weight>6,cols[7], ifelse(E(g)$weight>4,cols[6], ifelse(E(g)$weight>2,cols[5],cols[4]))))) plot(g, layout=l)
図 4-2
どの選手にボールが集まっているか一目瞭然です。
"BuPu" を使ったら、こんな感じ。