diff --git a/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd index f2206eccfe64f447a5974b45cd133a21ee27a899..4b41e27985c750d798781e46347b3af6d0229c2f 100644 --- a/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd +++ b/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd @@ -29,7 +29,7 @@ ggplot2::update_geom_defaults("label",list(family = "Marianne")) texte d'introduction... -## 1 - Un territoire plus artificialisé que la moyenne nationale +## 1 - Etat de la consommation d'espace par rapport à la moyenne nationale texte...... @@ -88,7 +88,7 @@ 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 +## 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) @@ -132,7 +132,7 @@ 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 +## 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, @@ -152,7 +152,7 @@ creer_graphe_3_3(millesime_stock_artif = params$millesime_stock_artif, code_reg = params$code_reg) ``` -## 4 - En Loire-Atlantique, un nouvel habitant consommera moins d'espace que la population en place. +## 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} @@ -169,7 +169,7 @@ creer_graphe_4_2(millesime_stock_artif = params$millesime_stock_artif, -## 5 - La capacité a poursuivre le modèle de développement est réinterrogée. +## 5 - Capacité à poursuivre le modèle de développement #### Et si l'artificialisation se poursuivait... @@ -193,7 +193,7 @@ creer_graphe_5_2(millesime_obs_artif = params$millesime_obs_artif, plot_layout(widths = c(2, 3)) ``` -## 6 - Tableau de synthèse. +## 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, @@ -201,6 +201,6 @@ creer_tableau_6_1(millesime_stock_artif = params$millesime_stock_artif, code_reg = params$code_reg) ``` - +## 7 - Méthodologie