辺リストを与えて有向グラフを描く♪

#ベクトルとして辺リストを作成する。
e.list <- c(1,2,1,3,2,1,2,3,4,1)




#行列として辺リストを作成する。
e.matrix <- matrix(e.list, ncol = 2, byrow = TRUE)

#このbyrow=TRUEのテクニックは必見・・・。普通かな笑

e.list
 [1] 1 2 1 3 2 1 2 3 4 1

e.matrix
     [,1] [,2]
[1,]    1    2
[2,]    1    3
[3,]    2    1
[4,]    2    3
[5,]    4    1

e.list-1
 [1] 0 1 0 2 1 0 1 2 3 0


g2 <- graph(e.list-1, n=4)


e.matrix-1
     [,1] [,2]
[1,]    0    1
[2,]    0    2
[3,]    1    0
[4,]    1    2
[5,]    3    0



g3 <- graph.edgelist(e.matrix - 1)


png("110214.g23.png")
par(mfrow = c(1,2))
plot(g2)
plot(g3)
dev.off()