passage en quartile carte 2_7

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,