---
author: "Dreal des Pays de la Loire"
date: "The date"
output: 
  gouvdown::html_gouv:
    toc: TRUE
    # logo: "prefecture_r52"
params:
  millesime_teruti: 2018
  millesime_ocsge: 2016
  millesime_obs_artif: 2020
  millesime_etalement_urbain: 2020
  millesime_population: 2019
  millesime_stock_artif: 2020
  code_reg: 52
title: "La consommation d'espace en `r mapfactory::get_nom_reg(params$code_reg)` en `r params$millesime_obs_artif`"
---

```{r setup, include=FALSE}
options(knitr.kable.NA = '')
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, error = FALSE)
library(gouvdown)
library(propre.artificialisation)
library(patchwork)
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"))
ggplot2::update_geom_defaults("label",list(family = "Marianne"))
```

texte d'introduction...

## 1 - Etat de la consommation d'espace par rapport à la moyenne nationale

texte......

```{r diag barres taux artificialisation par region}
ggplot2::theme_set(ggplot2::theme_minimal() +
                     ggplot2::theme(plot.caption.position =  "plot",
                                    plot.title.position = "plot",
                   plot.title = ggplot2::element_text(size = 14)))
creer_graphe_1_1(millesime_teruti = params$millesime_teruti,
                 code_reg = params$code_reg )
```

texte......


```{r carte communale artificialisation en volume, fig.width=9,fig.height=7}
ggplot2::theme_set(ggplot2::theme_minimal() +
                     ggplot2::theme(plot.caption.position =  "plot",
                                    plot.title.position = "plot",
                   text = ggplot2::element_text(family = "Mariane"),
                   plot.title = ggplot2::element_text(size = 14),
                   legend.key = ggplot2::element_rect(colour = "white")))
creer_carte_1_3(millesime_ocsge = params$millesime_ocsge,
                code_reg = params$code_reg)
```

texte......

<div class = "row">
<div class = "col-md-6">

```{r graph surfaces artificialisees en volume}
creer_graphe_1_4(millesime_teruti = params$millesime_teruti,
                 code_reg = params$code_reg)
```

</div>
<div class = "col-md-6">


```{r graph part surfaces artificialisees}

creer_graphe_1_5(millesime_teruti = params$millesime_teruti,
                code_reg = params$code_reg)
```
</div>
</div>

texte...


```{r graph artificialisation OCSGE}
creer_graphe_1_6(millesime_ocsge = params$millesime_ocsge, 
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)
```

texte...

```{r tableau artificialisation OCSGE}
creer_tableau_1_6(millesime_ocsge = params$millesime_ocsge,
                  millesime_population = params$millesime_population,
                  code_reg = params$code_reg)
```

```{r carte part du territoire communal artificialise, fig.width=9,fig.height=7}
creer_carte_1_7(millesime_ocsge = params$millesime_ocsge,
                code_reg = params$code_reg)
```

## 2 - Evolution de la consommation d'espace par rapport aux autres territoires

```{r carte france evolution departements 10 ans,fig.width=9,fig.height=7}
creer_carte_2_2(millesime_obs_artif = params$millesime_obs_artif)
```




```{r graph  du taux d evolution de l artificialisation cadastree des differentes regions,fig.width=9,fig.height=7}
creer_graphe_2_3(millesime_obs_artif = params$millesime_obs_artif, 
                 code_reg = params$code_reg)

```

```{r graph conso espace departements 10 ans,fig.width=7,fig.height=7}
creer_graphe_2_4(millesime_obs_artif = params$millesime_obs_artif, 
                 code_reg = params$code_reg )
```

```{r graph conso espace aire attraction des villes 10 ans,fig.width=9,fig.height=4}
creer_graphe_2_6(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)
```




```{r graph artificialisation par destination departements 10 ans,fig.width=9,fig.height=7}
creer_graphe_2_5(millesime_obs_artif= params$millesime_obs_artif,
                 code_reg = params$code_reg)
```

```{r carte communale de l evolution des surfaces cadastrees,fig.width=9,fig.height=7}
creer_carte_2_7(millesime_obs_artif = params$millesime_obs_artif,
                code_reg = params$code_reg)
```

```{r carte de l evolution des surfaces artificialisees par commune en pourcentage,fig.width=9,fig.height=7}
creer_carte_2_8(millesime_stock_artif = params$millesime_stock_artif,
                code_reg = params$code_reg)
```

## 3 - Mesure de l'étalement urbain entre 2016 et `r params$millesime_etalement_urbain`

```{r graph araignee etalement urbain par departements 10 ans,fig.width=9,fig.height=7}
creer_graphe_3_1(millesime_stock_artif = params$millesime_stock_artif, 
                 millesime_population = params$millesime_population, 
                 code_reg = params$code_reg)
```
```{r carte communale de l etalement urbain,fig.width=9,fig.height=7}
ggplot2::theme_set(ggplot2::theme_minimal() +
                     ggplot2::theme(plot.caption.position =  "plot",
                                    plot.title.position = "plot",
                   plot.title = ggplot2::element_text(size = 14)))
creer_carte_3_2(millesime_etalement_urbain = params$millesime_etalement_urbain, 
                 police_annotation = "Marianne",
                 code_reg = params$code_reg )
```


```{r graph croissance comparee population artificialisation,fig.width=9,fig.height=7}
ggplot2::theme_set(ggplot2::theme_minimal() +
                     ggplot2::theme(plot.caption.position =  "plot",
                                    plot.title.position = "plot",
                   plot.title = ggplot2::element_text(size = 14)))
creer_graphe_3_3(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)
```

## 4 - Consommation d'espace par nouvel habitant comparée à la population en place


```{r graph surfaces artificialisees par habitant,fig.width=9,fig.height=7}
ggplot2::theme_set(ggplot2::theme_minimal() +
                     ggplot2::theme(plot.caption.position =  "plot",
                                    plot.title.position = "plot",
                   plot.title = ggplot2::element_text(size = 14)))
creer_graphe_3_4(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)
```

```{r graph surfaces artificialisees par habitant par type territoire,fig.width=9,fig.height=7}
ggplot2::theme_set(ggplot2::theme_minimal() +
                     ggplot2::theme(plot.caption.position =  "plot",
                                    plot.title.position = "plot",
                   plot.title = ggplot2::element_text(size = 14)))
creer_graphe_4_2(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)
```



## 5 - Capacité à poursuivre le modèle de développement

#### Et si l'artificialisation se poursuivait...

```{r creer_graphe_5_1, fig.height=2.5,fig.width=8}
# creer_graphe_5_1(millesime_stock_artif = params$millesime_stock_artif,
#                  code_reg = params$code_reg)
```

#### Quel développement sans objectif de réduction de la consommation d'espace ?




```{r graph simulation loi 3c,fig.width=14,fig.height=7}
creer_graphe_5_2(millesime_obs_artif = params$millesime_obs_artif,
                 code_reg = params$code_reg)$graphique_region + 
  ggplot2::labs(caption=NULL) +
creer_graphe_5_2(millesime_obs_artif = params$millesime_obs_artif,
                 code_reg = params$code_reg)$graphique_departement + 
  ggplot2::labs(title=NULL,subtitle = NULL)+ 
  plot_layout(widths = c(2, 3))
```

## 6 - Tableau de synthèse

```{r creer_tableau_6_1, fig.height=12,fig.width=8}
creer_tableau_6_1(millesime_stock_artif = params$millesime_stock_artif,
                  millesime_population = params$millesime_population,
                  code_reg = params$code_reg)
```

## 7 - Méthodologie


