当所有节点都没有属性（使用调查进行网络）时，如何创建节点属性的数据框？

Question

我一直在研究这一段时间但无济于事。我使用两个statnet从调查数据中创建r中的一些网络。在调查中衡量网络的方式允许受访者列出未包含在调查中的网络联系人。事实证明，许多网络响应都被调查过，只有少数不是。我试图根据其他调查回复将颜色映射到节点。

这是我的问题的复制。我想标记具有属性的可用属性的节点，并标记那些没有＆＃39; unknown＆＃39;或NA或＆＃39;＆＃39;。

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