I have a network graph in R:library(dplyr)library(igraph)set.seed(123)edges <- data.frame(SOURCE =