Raw .Rmd file here

Prep ‘gapminder’ data

gapminder %>% 
  filter(year == 2002) ->
gapminder_2002




gapminder_2002 %>% 
  count(continent) ->
gapminder_continent_count

Build 2002 wealth v. life exp