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