skeleton.Rmd

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_obs_artif_gk3: 2019
  millesime_population: 2019
  millesime_stock_artif: 2020
  code_reg: 52
title: "L'artificialisation des sols en région `r mapfactory::get_nom_reg(params$code_reg)` en `r params$millesime_obs_artif`"

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 - Un territoire plus artificialisé que la moyenne nationale

texte......

creer_graphe_1_1(millesime_teruti = params$millesime_teruti,
                 code_reg = params$code_reg )

texte......

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......

creer_graphe_1_4(millesime_teruti = params$millesime_teruti,
                 code_reg = params$code_reg)

texte...

creer_graphe_1_5(millesime_teruti = params$millesime_teruti,
                code_reg = params$code_reg)

texte...

creer_graphe_1_6(millesime_ocsge = params$millesime_ocsge, 
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)

texte...

creer_tableau_1_6(millesime_ocsge = params$millesime_ocsge,
                  millesime_population = params$millesime_population,
                  code_reg = params$code_reg)

creer_carte_1_7(millesime_ocsge = params$millesime_ocsge,
                code_reg = params$code_reg)

2 - Un territoire qui continue de s'artificialiser plus vite qu'ailleurs

creer_carte_2_2(millesime_obs_artif = params$millesime_obs_artif)

creer_graphe_2_3(millesime_obs_artif = params$millesime_obs_artif, 
                 code_reg = params$code_reg)

creer_graphe_2_4(millesime_obs_artif = params$millesime_obs_artif, 
                 code_reg = params$code_reg )

creer_graphe_2_6(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)

creer_graphe_2_5(millesime_obs_artif= params$millesime_obs_artif,
                 code_reg = params$code_reg)

creer_carte_2_7(millesime_obs_artif = params$millesime_obs_artif,
                code_reg = params$code_reg)

creer_carte_2_8(millesime_stock_artif = params$millesime_stock_artif,
                code_reg = params$code_reg)

3 - Entre 2009 et 2019, l'étalement urbain est observé dans les Pays de la Loire

creer_graphe_3_1(millesime_stock_artif = params$millesime_stock_artif, 
                 millesime_population = params$millesime_population, 
                 code_reg = params$code_reg)

creer_carte_3_2(millesime_etalement_urbain = params$millesime_etalement_urbain, 
                 police_annotation = "Marianne",
                 code_reg = params$code_reg )

creer_graphe_3_3(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)

4 - En Loire-Atlantique, un nouvel habitant consommera moins d'espace que la population en place.

creer_graphe_3_4(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)

creer_graphe_4_2(millesime_stock_artif = params$millesime_stock_artif,
                 millesime_population = params$millesime_population,
                 code_reg = params$code_reg)

5 - La capacité a poursuivre le modèle de développement est réinterrogée.

Et si l'artificialisation se poursuivait...

creer_graphe_5_1(millesime_stock_artif = params$millesime_stock_artif,
                 code_reg = params$code_reg)

Quel développement avant la ZAN ?

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.

creer_tableau_6_1(millesime_stock_artif = params$millesime_stock_artif,
                  millesime_population = params$millesime_population,
                  code_reg = params$code_reg)