Возьмите имена узлов с узлов к краям 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)
Trustworthy Whale