Как разделить узлы и краевую часть тидиграфа на два отдельных чистых тибля

Question

У меня есть следующий tidygraph tibble :

rstat_nodes <- data.frame(name = c("Hadley", "David", "Romain", "Julia"), sex = c("M","M","M","F"))
rstat_edges <- data.frame(from = c(1, 1, 1, 2, 3, 3, 4, 4, 4), 
                            to = c(2, 3, 4, 1, 1, 2, 1, 2, 3))
g <- tbl_graph(nodes = rstat_nodes, edges = rstat_edges)
g

Это выглядит так:

> g
# A tbl_graph: 4 nodes and 9 edges
#
# A directed simple graph with 1 component
#
# Node Data: 4 x 2 (active)
  name   sex  
  <fct>  <fct>
1 Hadley M    
2 David  M    
3 Romain M    
4 Julia  F    
#
# Edge Data: 9 x 2
   from    to
  <int> <int>
1     1     2
2     1     3
3     1     4
# … with 6 more rows

Есть ли удобный способ разбить их на два чистых тибля один для узловой части, другой для краевой части.

Answer 1

Я относительно новичок в тидографах. Интересно посмотреть, как выглядит структура данных, но, возможно, это то, что вы ищете?

# to get nodes
g %>% activate(nodes) %>% as_tibble()
# to get edges
g %>% activate(nodes) %>% as_tibble()