Alicia
May 13, 2023
pacman::p_load(jsonlite, igraph, tidygraph, ggraph, visNetwork, lubridate, clock, tidyverse, graphlayouts)
MC1 <- fromJSON("data/MC1.json")
MC1_nodes <- as_tibble(MC1$nodes) %>% select(id, type, country)
MC1_edges <- as_tibble(MC1$links) %>% select(source, target, type, weight, key)