Example Network Chart

Ulpoad library

visNetwork::visNetwork(nodes, edges, height = "500px", width = "100%") %>%
     visNetwork::visIgraphLayout(
      layout = "layout.norm",
      layoutMatrix = coords,
      randomSeed = 1,
      smooth = T)

Select by group

visNetwork(nodes, edges, width = "100%") %>%
 visOptions(selectedBy = "group")

Select by id

visNetwork(nodes, edges, width = "100%") %>%
 visOptions(selectedBy = "id")