Merge branch '76-modifications-mineures-n1' into 'dev'

ajout d'une décimale dans la légende de la carte 2_7, couleurs pour les...

Closes #76

See merge request dreal-datalab/propre.artificialisation!50

R/creer_carte_2_7.R

@@ -59,7 +59,7 @@ creer_carte_2_7 <- function(millesime_obs_artif= NULL, code_reg = NULL) {
                                                 carto = fond_cartographique,
                                                 indicateur = valeur,
                                                 bornes = bins,
-                                                decimales = 0,
+                                                decimales = 1,
                                                 palette = "pal_gouv_h",
                                                 titre = glue::glue("Nouvelles surfaces artificialis\u00e9es cadastr\u00e9es\nentre {millesime_debut} et {millesime_fin} (10 ans)"),
                                                 sous_titre = NULL,

R/creer_graphe_3_4.R

@@ -116,11 +116,11 @@ creer_graphe_3_4 <- function(millesime_stock_artif = NULL,millesime_population =
                                     color = .data$variable),
                        position = ggplot2::position_dodge(width = 1),
                        hjust = -0.1) +
-    ggplot2::scale_color_manual(values = gouvdown::gouv_palettes$pal_gouv_h[1:2]) +
-    ggplot2::scale_fill_manual(values = gouvdown::gouv_palettes$pal_gouv_h[1:2]) +
+    ggplot2::scale_color_manual(values = c("#82534b","#FF8D7E")) +
+    ggplot2::scale_fill_manual(values = c("#82534b","#FF8D7E")) +
     ggplot2::labs(
       title = glue::glue("Surfaces cadastr\u00e9es artificialis\u00e9es (m\u00b2)", width = 60),
-      subtitle = glue::glue("<span style = \'color:#FF8D7E\'>par habitant pr\u00e9sent en {millesime_debut_population}</span> et <span style = \'color:#D6857B\'>par nouvel habitant entre {millesime_debut_population} et {millesime_fin_population}</span> "),
+      subtitle = glue::glue("<span style = \'color:#FF8D7E\'>par habitant pr\u00e9sent en {millesime_debut_population}</span> et <span style = \'color:#82534b\'>par nouvel habitant entre {millesime_debut_population} et {millesime_fin_population}</span> "),
       x = "",
       y = "",
       fill = "",

R/creer_graphe_4_2.R

@@ -152,13 +152,17 @@ creer_graphe_4_2 <- function(millesime_stock_artif = NULL,millesime_population =
   graphe_4_2 <- data %>% ggplot2::ggplot(ggplot2::aes(x=.data$seuil_pop,y=.data$valeur,fill=.data$variable), width = 0.9) +
     ggplot2::geom_bar(stat="identity",position = ggplot2::position_dodge())+
     ggplot2::coord_flip()  +
-    ggplot2::geom_text(ggplot2::aes(label=format(round(.data$valeur,0), big.mark = " "),color = .data$variable),position= ggplot2::position_dodge(width=1), hjust=-0.1)+
-    ggplot2::scale_color_manual(values = gouvdown::gouv_palettes$pal_gouv_h[1:2]) +
-    ggplot2::scale_fill_manual(values = gouvdown::gouv_palettes$pal_gouv_h[1:2]) +
+    ggplot2::geom_text(ggplot2::aes(label = format(round(.data$valeur,0), big.mark = " "),
+                                    color = .data$variable),
+                       position = ggplot2::position_dodge(width=1),
+                       hjust=-0.1) +
+    ggplot2::scale_color_manual(values = c("#82534b","#FF8D7E")) +
+    ggplot2::scale_fill_manual(values = c("#82534b","#FF8D7E")) +
     ggplot2::labs(
       title = glue::glue("Surfaces cadastr\u00e9es artificialis\u00e9es (m2)", width = 60),
-      subtitle = glue::glue("<span style = 'color:#FF8D7E'>par habitant pr\u00e9sent en {millesime_debut_population}</span> et <span style = 'color:#D6857B'>par nouvel habitant entre {millesime_debut_population} et {millesime_fin_population}</span> "),
-      x = "", y = "",
+      subtitle = glue::glue("<span style = 'color:#FF8D7E'>par habitant pr\u00e9sent en {millesime_debut_population}</span> et <span style = 'color:#82534b'>par nouvel habitant entre {millesime_debut_population} et {millesime_fin_population}</span> "),
+      x = "",
+      y = "",
       fill = "",
       caption = glue::glue("Source : Source : DGFip Majic/Cerema Fichiers fonciers - Insee -  {millesime_stock_artif}")
     ) +

inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd

@@ -10,7 +10,6 @@ params:
   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