mise a jour table 2023

data-raw/chargement_etat_civil.R

@@ -21,31 +21,30 @@ rm(list=ls())
 
 
 # paramètres ----------
-mil <- 2022
+mil <- 2023
 
 
 # chargement --------------
-etat_civil_naissances <- read_excel(paste0("extdata/base_naissances_",mil,".xlsx"),sheet=1, skip=5) %>% 
+etat_civil_naissances <- read_excel(paste0("extdata/base_naissances_",mil,".xlsx"),sheet=2, skip=3) %>% 
   set_standard_names() 
-etat_civil_deces <- read_excel(paste0("extdata/base_deces_",mil,".xlsx"),sheet=1, skip=5) %>% 
+etat_civil_deces <- read_excel(paste0("extdata/base_deces_",mil,".xlsx"),sheet=2, skip=3) %>% 
   set_standard_names() 
 
 
 # calcul ---------
 etat_civil_naissances <- etat_civil_naissances %>%
-  gather(date,valeur,5:ncol(etat_civil_naissances))%>%
+  rename(depcom=1) %>%
+  gather(date,valeur,3:ncol(etat_civil_naissances))%>%
   mutate(variable="nb_naissances") %>% 
-  select(c(depcom=codgeo,date,variable,valeur))
-etat_civil_naissances$date <- str_replace(etat_civil_naissances$date,"naisd","20")
-etat_civil_naissances <- etat_civil_naissances %>%
-  mutate_if(is.character, as.factor)
+  select(c(depcom,date,variable,valeur))
+etat_civil_naissances$date <- str_replace(etat_civil_naissances$date,"var_","")
 
 etat_civil_deces <- etat_civil_deces %>%
-  gather(date,valeur,5:ncol(etat_civil_deces))%>%
+  rename(depcom=1) %>% 
+  gather(date,valeur,3:ncol(etat_civil_deces))%>%
   mutate(variable="nb_deces") %>% 
-  select(c(depcom=codgeo,date,variable,valeur))
-etat_civil_deces$date <- str_replace(etat_civil_deces$date,"decesd","20")
-etat_civil_deces <- etat_civil_deces
+  select(c(depcom,date,variable,valeur))
+etat_civil_deces$date <- str_replace(etat_civil_deces$date,"var_","")
 
 etat_civil<- bind_rows(etat_civil_naissances,etat_civil_deces)%>%
   complete(depcom,date,variable,fill = list(valeur =0)) %>%
@@ -53,6 +52,14 @@ etat_civil<- bind_rows(etat_civil_naissances,etat_civil_deces)%>%
   mutate_if(is.character, as.factor) %>% 
   pivot_wider(names_from = variable,values_from = valeur)
 
+# suppression des lignes de metadonnees
+etat_civil<- etat_civil %>% 
+  mutate(depcom = as.character(depcom)) %>% 
+  mutate(meta = nchar(depcom)) %>% 
+  filter (meta < 6) %>% 
+  select(-meta) %>% 
+  mutate_if(is.character, as.factor)
+
 
 # # versement dans le sgbd/datamart.portrait_territoires -------------
 # drv <- dbDriver("PostgreSQL")