Technology, Graph Theory, Tidygraph, Graph Analytics, Data Visualization.
edges <- grph_object %>% activate(edges) %>% mutate(source = from - 1, target = to - 1) %>% data.frame() %>% select(source, target, distance) network_p <- sankeyNetwork(Links = edges, Nodes = nodes, Source = 'source', Target = 'target', Value = 'distance', NodeID = 'name', fontSize = 14, nodeWidth