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

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