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)