From ad1e65cfa49ec9e8b3159286f29be1fdbf797cb2 Mon Sep 17 00:00:00 2001 From: Juliette Engelaere-Lefebvre <juliette.engelaere@developpement-durable.gouv.fr> Date: Thu, 18 Jul 2024 17:49:50 +0200 Subject: [PATCH] =?UTF-8?q?bug=20fix=20usage=20de=20mapfactory=20avec=20`i?= =?UTF-8?q?ndicateur=20=3D=20valeur`=20ne=20fonctionne=20pas=20car=20la=20?= =?UTF-8?q?fonction=20`creer=5Fcarte()`=20cr=C3=A9e=20une=20autre=20colonn?= =?UTF-8?q?e=20intitul=C3=A9e=20`valeur`=20qui=20=C3=A9crase=20la=20premi?= =?UTF-8?q?=C3=A8re.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/creer_carte_1_3.R | 4 ++-- R/creer_carte_1_7.R | 6 +++--- R/creer_carte_2_7.R | 6 +++--- R/creer_carte_2_8.R | 8 ++++---- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/R/creer_carte_1_3.R b/R/creer_carte_1_3.R index bfc4d21..081655d 100644 --- a/R/creer_carte_1_3.R +++ b/R/creer_carte_1_3.R @@ -35,7 +35,7 @@ creer_carte_1_3 <- function(millesime_ocsge,code_reg){ data <- ocsge %>% dplyr::filter(grepl(millesime_ocsge, .data$date)) %>% dplyr::select(.data$TypeZone,.data$Zone,.data$CodeZone,.data$date,.data$espace_artificialise) %>% - dplyr::mutate(valeur=round(.data$espace_artificialise / 10000,0)) %>% + dplyr::mutate(valeur_ind = round(.data$espace_artificialise / 10000, 0)) %>% dplyr::select(-.data$espace_artificialise) mois <- lubridate::month(data[1,"date"],label=TRUE) @@ -50,7 +50,7 @@ creer_carte_1_3 <- function(millesime_ocsge,code_reg){ carte_1_3 <- mapfactory::creer_carte_communes_prop(data = data, code_region = code_reg, carto = fond_carto, - indicateur = valeur, + indicateur = valeur_ind, pourcent = FALSE, decimales=0, palette = "pal_gouv_h", diff --git a/R/creer_carte_1_7.R b/R/creer_carte_1_7.R index 18ada4c..05552a5 100644 --- a/R/creer_carte_1_7.R +++ b/R/creer_carte_1_7.R @@ -50,7 +50,7 @@ creer_carte_1_7 <- function(millesime_ocsge, dplyr::filter(.data$variable == "espace_artificialise") %>% dplyr::ungroup() %>% dplyr::select(.data$TypeZone,.data$CodeZone,.data$Zone,.data$date,.data$valeur) %>% - dplyr::mutate(valeur=.data$valeur * 100) + dplyr::mutate(valeur_ind =.data$valeur * 100) nom_region <- COGiter::regions %>% dplyr::filter (.data$REG == code_reg) %>% @@ -58,12 +58,12 @@ creer_carte_1_7 <- function(millesime_ocsge, dplyr::pull(.data$NCCENR) fond_carto <- mapfactory::fond_carto(nom_reg = nom_region) - bins <- stats::quantile(data$valeur,probs = c(0,0.1, 0.25, 0.5,0.75,0.9,1),na.rm=TRUE) + bins <- stats::quantile(data$valeur_ind, probs = c(0, 0.1, 0.25, 0.5, 0.75, 0.9, 1), na.rm=TRUE) carte_1_7 <- mapfactory::creer_carte_communes(data = data, code_region=code_reg, carto = fond_carto, - indicateur = valeur, + indicateur = valeur_ind, bornes = bins, pourcent = TRUE, decimales = 1, diff --git a/R/creer_carte_2_7.R b/R/creer_carte_2_7.R index 4aa04eb..52f34b4 100644 --- a/R/creer_carte_2_7.R +++ b/R/creer_carte_2_7.R @@ -43,7 +43,7 @@ creer_carte_2_7 <- function(millesime_obs_artif= NULL, code_reg = NULL) { .data$date >= millesime_obs_artif - 9) %>% dplyr::mutate(flux_naf_artificialisation_total = .data$flux_naf_artificialisation_total / 10000) %>% dplyr::group_by(.data$CodeZone, .data$TypeZone, .data$Zone) %>% - dplyr::summarise(valeur = sum(.data$flux_naf_artificialisation_total, na.rm = T)) %>% + dplyr::summarise(valeur_ind = sum(.data$flux_naf_artificialisation_total, na.rm = T)) %>% dplyr::ungroup() nom_region <- COGiter::regions %>% @@ -54,13 +54,13 @@ creer_carte_2_7 <- function(millesime_obs_artif= NULL, code_reg = NULL) { fond_cartographique <- mapfactory::fond_carto(nom_reg = nom_region) # bins <- stats::quantile(data$valeur,probs = c(0,0.1, 0.25, 0.5,0.75,0.9,1),na.rm=TRUE) # bins <- stats::quantile(data$valeur,probs = c(0,0.2, 0.4, 0.6,0.8,1),na.rm=TRUE) - bins <- stats::quantile(data$valeur,probs = c(0, 0.25, 0.50, 0.75, 1), na.rm=TRUE) + bins <- stats::quantile(data$valeur_ind, probs = c(0, 0.25, 0.50, 0.75, 1), na.rm=TRUE) carte_2_7 <- mapfactory::creer_carte_communes(data = data, code_region=code_reg, carto = fond_cartographique, - indicateur = valeur, + indicateur = valeur_ind, bornes = bins, decimales = 1, palette = "pal_gouv_h", diff --git a/R/creer_carte_2_8.R b/R/creer_carte_2_8.R index f4f52be..ee46096 100644 --- a/R/creer_carte_2_8.R +++ b/R/creer_carte_2_8.R @@ -47,10 +47,10 @@ creer_carte_2_8 <- function(millesime_stock_artif = NULL, dplyr::select (-.data$surf_cadastree) %>% dplyr::arrange(.data$TypeZone, .data$Zone, .data$CodeZone, .data$date) %>% dplyr::group_by(.data$TypeZone, .data$Zone, .data$CodeZone) %>% - dplyr::mutate(valeur = round(.data$surface_artificialisee * 100 / dplyr::lag(.data$surface_artificialisee) - 100, 1)) %>% + dplyr::mutate(valeur_ind = round(.data$surface_artificialisee * 100 / dplyr::lag(.data$surface_artificialisee) - 100, 1)) %>% dplyr::ungroup() %>% dplyr::filter(.data$date == millesime_stock_artif) %>% - dplyr::select(.data$TypeZone, .data$CodeZone, .data$Zone, .data$valeur) + dplyr::select(.data$TypeZone, .data$CodeZone, .data$Zone, .data$valeur_ind) nom_region <- COGiter::regions %>% dplyr::filter (.data$REG == code_reg) %>% @@ -62,13 +62,13 @@ creer_carte_2_8 <- function(millesime_stock_artif = NULL, # p <- c(0, 0.1, 0.25, 0.5, 0.75, 0.9, 1) # p <- c(0.30, 0.55, 0.75, 0.9, 1) p <- c(0.1, 0.25, 0.5, 0.75, 0.9) - bins <- stats::quantile(data$valeur, probs = p, na.rm=TRUE) + bins <- stats::quantile(data$valeur_ind, probs = p, na.rm=TRUE) carte_2_8 <- mapfactory::creer_carte_communes(data = data, code_region=code_reg, carto = fond_cartographique, - indicateur = valeur, + indicateur = valeur_ind, bornes = bins, decimales = 1, palette = "pal_gouv_h", -- GitLab