Four Ego Networks

  visNetwork(nodes = plot_second_order_before1765$nodes, edges = plot_second_order_before1765$edges) %>% 
        visPhysics(enabled = F) %>% 
        visLayout(randomSeed = 123) %>% 
    visIgraphLayout('layout_nicely') %>% 
  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE)

  visNetwork(nodes = plot_first_order_post1765$nodes, 
             edges = plot_first_order_post1765$edges) %>% 
        visPhysics(enabled = F) %>% 
        visLayout(randomSeed = 123) %>% 
    visIgraphLayout('layout_nicely') %>% 
  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE)

  visNetwork(nodes = plot_second_order_post1765$nodes, edges = plot_second_order_post1765$edges) %>% 
        visPhysics(enabled = F) %>% 
        visLayout(randomSeed = 123) %>% 
    visIgraphLayout('layout_nicely') %>% 
  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE)