Как создать граф сети, который является частью случайной и произвольной части в R

Question

У меня есть таблица с данными для сетевого графика. Таблица выглядит следующим образом:

df <- data.frame(ResponseID = 
    c('573829292', '638239391', '630719030', '632932937'), 
    know_anyone = c(9,16,12,32)) 

Как я может генерировать сетевой график, был каждый ResponseID является узлом случайным образом соединен с другими ResponseID, но и соединен в звезде манеры к ряду других узлов, представленных номера в столбце «know_anyone»?

Answer 1

Сначала сделайте кадр данных, повторяя идентификатор know_anyone число раз с порядковым номером узла от 1 до N:

> dstars = data.frame(
    src=rep(df$ResponseID,df$know_anyone), 
    dst=paste0("N",1:(sum(df$know_anyone)))) 

Затем создать свой случайный граф однако. Я создам полный график для исходных узлов, получив все комбинации из двух чисел от 1 до M (M = 4 здесь). Rbind что, или ваш график из соединений между исходными узлами, к вышесказанному и сделать график:

> g = graph.data.frame(
     rbind(
     data.frame(
      src=df$ResponseID[combn(nrow(df),2[1,]], 
      dst=df$ResponseID[combn(nrow(df),2)[2,]] 
     ), 
     dstars) 
    ) 

Не использовать это для 1000 узлов, потому что это сделает график с полумиллионом краями - Я предполагаю, что ваш случайный график будет меньше (или у вас больше оперативной памяти, чем у меня!).