“Tome los nombres de nodos de los nodos a los bordes Tidygraph” Código de respuesta

Tome los nombres de nodos de los nodos a los bordes Tidygraph

your_tbl_graph %>% 
  activate(edges) %>% 
  mutate(to_name = .N()$name[to], 
         from_name = .N()$name[from]) %>% 
  as_tibble() %>% 
  select(from = from_name, to = to_name, weight)