::: {.cell hash='08_Maps_cache/revealjs/centroids_ffb587aacef994f511a09f24052e63d8'}

```{.r .cell-code}
regions %>% 
  mutate(
    centroid = st_centroid(geometry)
  ) %>% 
  ggplot() +
  geom_sf(aes(geometry=centroid))
```
:::