---
title: "Illustrations chapitre 5"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Illustrations chapitre 5}
  %\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 = 10,
  fig.height = 6
)

```

```{r septup}
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 la chronologie estimant le temps necessaire au doublement des surfaces artificialisees.

La fonction `creer_graphe_5_1()` produit le graphique de la chronologie estimant le temps necessaire au doublement des surfaces artificialisees.

```{r creer_graphe_5_1, fig.height=2.5,fig.width=8}
creer_graphe_5_1(millesime_stock_artif = 2020,
                 code_reg = '52')
```




## Graphique de simulation de la consommation d'espace sur 10 ans et d'impact de la loi 3C.

La fonction `creer_graphe_5_2()` produit une liste de deux graphique sur l'estimation de la consommation d'espace sur 10 ans et l'effort à fournir si il fallait répartir uniformément l'objectif de division par deux du rythme de progression fixé par la loi 3C.

```{r}
p <- creer_graphe_5_2(millesime_obs_artif = 2019,
                            code_reg = '52')
```

Le graphique régional 

```{r}
p$graphique_region
```

Le graphique départemental 

```{r}
p$graphique_departement
```

