---
title: "Illustrations chapitre 2"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Illustrations chapitre 2}
  %\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)
library(COGiter)

ggplot2::theme_set(gouvdown::theme_gouv(plot_title_size = 14, subtitle_size  = 12, base_size = 10, caption_size = 10,strip_text_size  = 10))

```

## Evolution de l artificialisation sur 10 ans en ha par département.

La fonction `creer_carte_2_2()` produit la carte de l'évolution de l artificialisation sur 10 ans en ha par département.

```{r creer_carte_2_2}
creer_carte_2_2(millesime_obs_artif = 2019)
```


## Graphique du taux d'évolution 2009/19 (%) de l'artificialisation cadastrée des différentes régions

La fonction `creer_graphe_2_3()` produit le graphique du taux d'évolution 2009/19 (%) de l'artificialisation cadastrée des différentes régions.

```{r creer_graphe_2_3}
creer_graphe_2_3(millesime_obs_artif = 2020 , code_reg = '52')
```

## Graphique de la consommation d espaces NAF sur 10 ans en ha

La fonction `creer_graphe_2_4()` produit graphique de la consommation d espaces NAF sur 10 ans en ha.

```{r creer_graphe_2_4, fig.height=10,fig.width=5}
creer_graphe_2_4(millesime_obs_artif=2019 ,code_reg = '52' )
```

## Graphique de l'artificialisation par destination en ha sur 10 ans

La fonction `creer_graphe_2_5()` produit le graphique de l artificialisation par destination en ha sur 10 ans.

```{r creer_graphe_2_5, fig.height=10,fig.width=5}
creer_graphe_2_5(millesime_obs_artif=2019 , code_reg = "52")
```

## Graphique du taux d'évolution 2009/19 (%) de l'artificialisation cadastrée par aire d'attraction des villes

La fonction `creer_graphe_2_6()` produit le graphique du taux d'évolution 2016/20 (%) de l'artificialisation cadastrée par aire d'attraction des villes.

```{r creer_graphe_2_6, echo=FALSE}
creer_graphe_2_6(millesime_stock_artif = 2020, millesime_population = 2019, code_reg = "52")
```

## Carte régionale de l'évolution des surfaces cadastrées en hectares

La fonction `creer_carte_2_7()` produit la carte régionale de l'évolution des surfaces cadastrées en hectares.

```{r creer_carte_2_7}
creer_carte_2_7(millesime_obs_artif = 2019, code_reg ="52")
```

## Carte de l evolution des surfaces artificialisees par commune en pourcentage

La fonction `creer_carte_2_8()` produit la carte de l evolution des surfaces artificialisees par commune en pourcentage

```{r creer_carte_2_8}
creer_carte_2_8(millesime_stock_artif = 2020, code_reg ="52")
```
