0

我一直在努力解决这个问题，但无济于事。我正在使用这两个 statnet 从调查数据中创建一些网络。调查中测量网络的方式允许受访者列出调查中未包括的网络联系人。结果是，对许多网络响应进行了调查，只有少数没有。我正在尝试根据其他调查响应将颜色映射到节点。

这是我的问题的复制。我想用它们的属性标记具有可用属性的节点，并将那些没有的节点标记为“未知”或 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
4

0 回答 0