Самый простой способ - создать граф, содержащий все метаданные, а затем igraph позаботится об остальном. Например,
library(igraph)
answers <- read.table(textConnection(
" Player Q1_I1
1 k 1
2 l 0
3 n 1
4 m 0
"))
topology <- read.table(textConnection(
" Node.1 Node.2
1 k l
2 l k
3 l m
4 m l
5 l n
6 n l
7 n k
8 k n
"))
g2 <- graph.data.frame(topology, vertices=answers, directed=FALSE)
g <- simplify(g2)
V(g)$color <- ifelse(V(g)$Q1_I1 == 1, "lightblue", "orange")
plot(g)
[/g0]
Но на самом деле, если вы не включаете каждое ребро в обоих направлениях в своей таблице данных, тогда вы даже не необходимо упростить.