conservation de l'affichage du nombre reel de promoteurs le plus longtemps possible

data-raw/03_secretisation.R

@@ -11,7 +11,8 @@ ecln_secret_11 <- left_join(ecln_secret_10, tranches_ecln, by= "Indicateur") %>%
 # Pour simplifier, lorsque qu'un promoteur représente plus de 80% (part_max>0.8), on remplace la valeur nb_promoteurs par 1
 # Ce qui assure que la donnée sera secrétisée
 ecln_secret_11 <- ecln_secret_11 %>%
-  mutate(nb_promoteurs = case_when(
+  mutate( nb_promoteurs_reel = nb_promoteurs,  # conservation de la valeur réelle du nombre de promoteurs
+          nb_promoteurs = case_when(
     part_max > 0.8 ~ 1,
     TRUE ~ nb_promoteurs
   ))
@@ -63,7 +64,7 @@ secret_epci3<-secret_epci2 %>%
     a_secretiser > 0 ~ NA,         #remplace valeur par NA si secret stat
     TRUE ~ Valeur)) %>%              # sinon garde sa valeur
   ungroup() %>%
-  select(TypeZone,CodeZone,Zone,Periode,Indicateur,Valeur)
+  select(TypeZone,CodeZone,Zone,Periode,Indicateur,Valeur,nb_promoteurs_reel)
 
 
 # secretisation des Départements ------------------------------------------------------------------------------------------
@@ -110,7 +111,7 @@ secret_dep3<-secret_dep2 %>%
   a_secretiser > 0 ~ NA,         #remplace valeur par NA si secret stat
   TRUE ~ Valeur)) %>%              # sinon garde sa valeur
   ungroup() %>%
-  select(TypeZone,CodeZone,Zone,Periode,Indicateur,Valeur)
+  select(TypeZone,CodeZone,Zone,Periode,Indicateur,Valeur,nb_promoteurs_reel)
 
 # secretisation des régions et France--------------------------------------------------------------------------------------------------
 # pas de secrétisation en fonction des données supra
@@ -142,12 +143,13 @@ secret_reg3<-secret_reg2 %>%
     a_secretiser > 0 ~ NA,         #remplace valeur par "nc" si secret stat
     TRUE ~ Valeur)) %>%              # sinon garde sa valeur
   ungroup() %>%
-  select(TypeZone,CodeZone,Zone,Periode,Indicateur,Valeur)
+  select(TypeZone,CodeZone,Zone,Periode,Indicateur,Valeur,nb_promoteurs_reel)
 
 # regroupement des zonages -------------------------------------------------------------------------------------------------------------
 
 ecln_secret20 <-bind_rows(secret_epci3,secret_dep3,secret_reg3) %>%
-  mutate_if(is.character,as.factor)
+  mutate_if(is.character,as.factor) %>%
+  select(-nb_promoteurs_reel)
 
 rm(ecln_secret_10,ecln_secret_11,secret_dep,secret_dep1,secret_dep2,secret_dep3,
    secret_epci,secret_epci1,secret_epci2,secret_epci3,secret_reg,secret_reg1,