::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-56_4b80759e7fd74d66a8c4d9d805c6de9d'}

```{.r .cell-code}
italy %>%
  mutate(
    area = st_area(geometry)
    ) %>% 
  summarise(
    area = 
      set_units(sum(area), "km^2")
  ) %>% 
  ggplot() +
  geom_sf(
    aes(fill=drop_units(area))) +
  scale_fill_viridis()
```
:::