From abe92eb87a4b1f8d00be7924feb15ab33ecffb42 Mon Sep 17 00:00:00 2001 From: Daniel Kalioudjoglou <daniel.kalioudjoglou@developpement-durable.gouv.fr> Date: Wed, 3 Aug 2022 10:20:37 +0200 Subject: [PATCH] passage en quartile carte 2_7 --- R/creer_carte_2_7.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/creer_carte_2_7.R b/R/creer_carte_2_7.R index 262cd5a..4aa04eb 100644 --- a/R/creer_carte_2_7.R +++ b/R/creer_carte_2_7.R @@ -53,7 +53,8 @@ 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.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) carte_2_7 <- mapfactory::creer_carte_communes(data = data, -- GitLab