::: {.cell hash='08_Maps_cache/revealjs/africa-population-ntile_d47044be46c70355767da25e048b4731'}

```{.r .cell-code}
ggplot() +
  geom_sf(
    data=filter(africa, 
                pop_year == 2019),
    mapping=aes(
      fill=rank(as.numeric(pop_est)))
  ) +
  scale_fill_viridis_c() +
  labs(fill="Rank by population",
       caption="This allows to see the most populated and 
                least populated countries")
```
:::