Code Sample

Let’s visualize Julien’s code within these boxes

edgelist_clean <- edgelist %>% 
  distinct() %>% 
  drop_na()


edgelist_clean <- edgelist_clean %>% 
  filter(year  > 2000 & year < 2005)

graph_places <- graph_from_data_frame(d = edgelist_clean, directed = FALSE)

plot(simplify(graph_places),
     vertex.size = 1,
     vertex.label = NA)