Как я могу добавить фрейм данных в качестве атрибутов вершин с соответствующими идентификаторами в igraph?

Для меня самый простой способ сделать это:

1. преобразовать граф в списки узлов и ребер с помощью igraph::as_data_frame
   • Фактически вы получите список фреймов данных, если введете параметр what = 'both'.
2. объединить данные в список узлов
3. воссоздайте граф, используя обновленный список узлов и список ребер, используя graph_from_data_frame

.

library(dplyr)

g <- make_graph('zachary') %>%
  set_edge_attr(., 'weight', value = runif (ecount(.), 1, 10)) %>%
  set_vertex_attr(., 'name', value = V(.) %>% as.numeric)

fake_data <- tibble(
  id = V(g) %>% as.numeric(),
  degree = degree(g),
  strength = strength(g)
)

df <- igraph::as_data_frame(g, 'both')

df$vertices <- df$vertices %>% 
  left_join(fake_data, c('name'='id'))

updated_g <- graph_from_data_frame(df$edges,
                                   directed = F,
                                   vertices = df$vertices)

Если вы не хотите конвертировать данные из форматов туда и обратно, то да, вы можете использовать set_vertex_attr.

1. Перебрать вектор вершин V(g)
   • Вы не можете перебирать вектор вершин, вам нужно перебирать атрибут вершины, который есть у всех вершин.
2. Отфильтруйте фрейм данных до строки, соответствующей каждому вектору
3. Вернуть интересующую стоимость

.

updated_g2 <- g %>%
  set_vertex_attr(., 
                  name = 'degree', 
                  index = V(g), 
                  value = sapply(V(g)$name, function(x){
                    fake_data %>%
                      filter(id == x) %>%
                      .$degree
                    })) %>%
  set_vertex_attr(., 
                  name = 'strength', 
                  index = V(g), 
                  value = sapply(V(g)$name, function(x){
                    fake_data %>%
                      filter(id == x) %>%
                      .$strength
                    }))