---
title: "Illustrations chapitre 3"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Illustrations chapitre 3}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  echo = TRUE, 
  message = FALSE, 
  warning = FALSE, 
  error = FALSE,
  comment = "#>",
  fig.width = 9,
  fig.height = 7
)

```

```{r setup}
library(propre.artificialisation)
library(gouvdown)
ggplot2::theme_set(gouvdown::theme_gouv(plot_title_size = 14, subtitle_size  = 12, base_size = 10, caption_size = 10,strip_text_size  = 10))
```

## Graphique de l'étalement urbain pour la région et les département sur 10 ans

La fonction `creer_graphe_3_1()` produit le graphique du taux de croissance comparee des surfaces artificialisees et de la population par département.


```{r creer_graphe_3_1, fig.height=9,fig.width=7}
creer_graphe_3_1(millesime_stock_artif = 2020,
                 millesime_population = 2019, 
                 code_reg = '52',
                 police = "Marianne")
```

## Carte communale de l'étalement urbain

La fonction `creer_carte_3_2()` produit la carte communale de l'étalement urbain.

```{r creer_carte_3_2}
creer_carte_3_2(millesime_etalement_urbain = 2020, 
                police_annotation = "Marianne",
                code_reg ="52")
```

## Graphique de l'étalement urbain par taille des communes

La fonction `creer_graphe_3_3()` produit le graphique de l'étalement urbain par selon le zonage par taille des communes.


```{r viz, fig.height=5,fig.width=8}
creer_graphe_3_3(millesime_stock_artif = 2020,
                 millesime_population = 2019, 
                 code_reg = '52')
```

# Graphique des surfaces artificialisées pour un nouvel habitant par département

La fonction `creer_graphe_3_4()` produit le graphique des surfaces artificialisées pour un nouvel habitant par département.

```{r creer_graphe_3_4, fig.height=5,fig.width=8}
creer_graphe_3_4(millesime_stock_artif = 2020, millesime_population = 2019, code_reg = 52)
```
