jlacko

library(tidyverse)
library(sf)
library(giscoR)
library(gganimate)

# world, with Greenland and Congo (roughly equal in area) in red
world <- gisco_get_countries(resolution = "20") %>% 
   mutate(color = ifelse(CNTR_ID %in% c('GL', 'CD'), 'red', 'black')) %>% 
   group_by(color) %>% 
   summarise() %>%