From 03b3b26cec946b8bf5683f1935feb3d6cb7aeb32 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Wed, 29 Jun 2022 11:28:34 +0200
Subject: [PATCH] modification titre sur 3_1 et correction division par 10000
sur 5_1
---
R/creer_graphe_3_1.R | 2 +-
R/creer_graphe_5_1.R | 1 -
2 files changed, 1 insertion(+), 2 deletions(-)
diff --git a/R/creer_graphe_3_1.R b/R/creer_graphe_3_1.R
index 3cae1f5..6c74c4d 100644
--- a/R/creer_graphe_3_1.R
+++ b/R/creer_graphe_3_1.R
@@ -104,7 +104,7 @@ creer_graphe_3_1 <- function(millesime_stock_artif = NULL,
expand = c(0,0)
) +
ggplot2::labs(
- title = "Taux de croissance compar\u00e9s des <span style = \'color:#FF8D7E\'>cadastr\u00e9es consomm\u00e9es</span> <br>et de la <span style = \'color:#5770BE\'>population municipale</span>",
+ title = "Taux de croissance compar\u00e9s des surfaces <span style = \'color:#FF8D7E\'>cadastr\u00e9es consomm\u00e9es</span> <br>et de la <span style = \'color:#5770BE\'>population municipale</span>",
subtitle = glue::glue("Entre {millesime_debut} et {millesime_stock_artif} (en %)"),
caption = glue::glue("Source : Cerema Fichiers fonciers / Insee RP {millesime_population}"),
x = NULL, y = NULL
diff --git a/R/creer_graphe_5_1.R b/R/creer_graphe_5_1.R
index 277d899..a1c372d 100644
--- a/R/creer_graphe_5_1.R
+++ b/R/creer_graphe_5_1.R
@@ -46,7 +46,6 @@ creer_graphe_5_1 <- function(millesime_stock_artif,code_reg) {
.data$date %in% c(millesime_stock_artif,millesime_reference)) %>%
dplyr::select(.data$TypeZone,.data$Zone,.data$CodeZone,.data$date,.data$surface_artificialisee) %>%
- dplyr::mutate(surface_artificialisee = .data$surface_artificialisee / 10000) %>%
dplyr::mutate(date = dplyr::case_when(
.data$date == millesime_reference ~ "stock_mill_debut",
.data$date == millesime_stock_artif ~ "stock_mill_fin",
--
GitLab