I simulated some data and created a graph network in R using visnetwork:
library(igraph) library(dplyr) library(visNetwork) #create file from which to sample