In-class Exercise 5

Install packages

pacman::p_load(jsonlite,tidygraph,ggraph, visNetwork,tidyverse)

Load data

MC1 <- jsonlite::fromJSON("data/MC1.json")

Expand MC1_nodes

MC1_nodes <- as_tibble(MC1$nodes) %>%
  select(id, type, country)

Expand MC1_edges

MC1_edges <- as_tibble(MC1$links) %>%
  select(source,target,type,weight,key)