From a tbl_graph from tidygraph, transform it into a tibble with labeled nodes
Examples
G <- "Lorem ipsum dolor sit amet, consectetur adipiscing elit." |> cooccur_words()
#> tokenizing sentences...
#> tokenizing words...
G
#> # A tibble: 28 × 3
#> n1 n2 n
#> <chr> <chr> <int>
#> 1 adipiscing amet 1
#> 2 adipiscing consectetur 1
#> 3 adipiscing dolor 1
#> 4 adipiscing elit 1
#> 5 adipiscing ipsum 1
#> 6 adipiscing lorem 1
#> 7 adipiscing sit 1
#> 8 amet consectetur 1
#> 9 amet dolor 1
#> 10 amet elit 1
#> # ℹ 18 more rows
G <- G |> tidygraph::as_tbl_graph()
G
#> # A tbl_graph: 8 nodes and 28 edges
#> #
#> # A directed acyclic simple graph with 1 component
#> #
#> # Node Data: 8 × 1 (active)
#> name
#> <chr>
#> 1 adipiscing
#> 2 amet
#> 3 consectetur
#> 4 dolor
#> 5 elit
#> 6 ipsum
#> 7 lorem
#> 8 sit
#> #
#> # Edge Data: 28 × 3
#> from to n
#> <int> <int> <int>
#> 1 1 2 1
#> 2 1 3 1
#> 3 1 4 1
#> # ℹ 25 more rows
G |> tblgraph_to_tbl()
#> # A tibble: 28 × 3
#> n n1 n2
#> <int> <chr> <chr>
#> 1 1 adipiscing amet
#> 2 1 adipiscing consectetur
#> 3 1 adipiscing dolor
#> 4 1 adipiscing elit
#> 5 1 adipiscing ipsum
#> 6 1 adipiscing lorem
#> 7 1 adipiscing sit
#> 8 1 amet consectetur
#> 9 1 amet dolor
#> 10 1 amet elit
#> # ℹ 18 more rows