Как создать информационный фрейм атрибутов узла, когда все узлы не имеют атрибута (делая сети с опросами)?

Question

Я работал над этим некоторое время безрезультатно. Я использую оба statnet для создания некоторых сетей в r из данных опроса. Способ измерения сетей в опросе позволил респондентам перечислить сетевые контакты, не включенные в опрос. Как выяснилось, многие сетевые ответы были опрошены, а некоторые - нет. Я пытаюсь сопоставить цвета с узлами на основе других ответов на опрос.

Это повторение моей проблемы. Я хочу пометить узлы, которые имеют доступные атрибуты, своим атрибутом и пометить те, которые не имеют значения "unknown", "NA" или "".

install.packages('statnet')
library(statnet)


mydata <- data.frame(
  src=c('bob','sue','tom','john','sheena'),
  trg=c('tom','billy','billy','bob','chris'),
  vary_1=c(1,2,2,3,1)

)

net_1 <- network(mydata[1:2])


##### My attempt using dplyr to create labels ####
# it doesn't work

labs <-  mydata %>% 
  mutate(flag = .[,1] %in% .[,2]) %>% 
  gather(key,value,-flag,-vary_1) %>% 
  mutate(i=ifelse(.$key=='trg',.$vary_1==NA,.$vary_1)) %>% 
  select(value) %>% 
  unique() %>% 
  .[,1] #### I think this approach is something close

set.seed(123)
gplot(net_1,vertex.cex = degree(net_1),
      label=labs)  #labels using the labs created above