Создание переменных с группой в R igraph

Question

ниже - мои коды воспроизводимых образцов.

sender_code <- c(12 ,1 ,6 ,19 ,7 ,8 ,3 ,17 ,13 ,10 ,4 ,9 ,2 ,5 

,15 ,11 ,16 ,20 ,14 ,18) 
receiver_code <- c(20 ,16 ,7 ,3 ,4 ,11 ,8 ,2 ,10 ,12 ,17 ,5 ,1 ,18 ,13 ,9 ,6 ,15 ,19 ,14) 

sender_country <- ifelse(sender_code<6,"Phil", 
         ifelse(sender_code<10,"Japan", 
          ifelse(sender_code<16,"Brazil", 
            "Norway" 
            ) 
          ) 
        ) 



receiver_country <- ifelse(receiver_code<6,"Phil", 
        ifelse(receiver_code<10,"Japan", 
          ifelse(receiver_code<16,"Brazil", 
            "Norway" 
          ) 
        ) 
) 



message<- data.frame(sender_code,receiver_code,sender_country,receiver_country 

Я хочу подключить каждый отправитель к каждому приемнику, а затем код цвета их на основе их страна, как этот график:

http://revolution-computing.typepad.com/.a/6a010534b1db25970b017c379af59c970b-pi

Проблемы я не знаем, что функция на igraph который может создать такую ​​диаграмму на моих данных.

Заранее спасибо

Answer 1

Попробуйте для начала:

library(igraph) 
with(message, 
    plot(graph.data.frame(message), 
     vertex.color = sender_country, 
     vertex.label.color = "white", 
     edge.color = sender_country) 
) 

Более подробную информацию под ?plot.igraph.