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

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

ggplot2::theme_set(gouvdown::theme_gouv(plot_title_size = 14, subtitle_size  = 12, base_size = 10, caption_size = 10) +
                     ggplot2::theme(plot.caption.position =  "plot"))

```

## Taux d'artificialisation par region (Teruti-Lucas)

La fonction `creer_graphe_1_1()` produit le graphique des taux d'artificialisation par region (Teruti-Lucas).

```{r creer_graphe_1_1}

creer_graphe_1_1(millesime_teruti=2018, code_reg = "52")
```

## Carte communale des Pays de la Loire de l'artificialisation en volume selon OCSGE

La fonction `creer_carte_1_3()` produit la carte communale des Pays de la Loire de l'artificialisation en volume selon OCSGE.

```{r creer_carte_1_3}
library(propre.artificialisation)
creer_carte_1_3(millesime_ocsge=2016, code_reg = '52')
```


## Graphique en barres des surfaces artificialisees en volume

La fonction `creer_graphe_1_4()` produit le graphique en barres des surfaces artificialisees en volume (Teruti-Lucas).

```{r creer_graphe_1_4}
creer_graphe_1_4(millesime_teruti=2018,code_reg ="52")
```


## Graphique en barres de la part des surfaces artificialisees dans la surface departementale et regionale

La fonction `creer_graphe_1_5()` produit le graphique en barres de la part des surfaces artificialisees dans la surface departementale et regionale (Teruti-Lucas).

```{r creer_graphe_1_5}
creer_graphe_1_5(millesime_teruti=2018 , code_reg = "52")
```

## Artificialisation par type de territoire

La fonction `creer_graphe_1_6()` produit le graphique de l artificialisation OCSGE par type de territoire.

La fonction `creer_tableau_1_6()` produit le tableau de l artificialisation OCSGE par type de territoire par departement.


```{r creer_graphe_1_6, fig.height=5,fig.width=8}
creer_graphe_1_6(millesime_ocsge = 2016, millesime_population = 2019, code_reg = '52')
```

```{r creer_tableau_1_6, fig.height=5,fig.width=8}
creer_tableau_1_6(millesime_ocsge = 2016, millesime_population = 2019, code_reg = '52')
```

## Carte de la part du territoire communal artificialisé

La fonction `creer_carte_1_7()` produit la carte de la part du territoire communal artificialisé selon OCSGE.

```{r}
creer_carte_1_7(millesime_ocsge=2016, code_reg = '52')

```

