diff --git a/data-raw/chargement_etat_civil.R b/data-raw/chargement_etat_civil.R index ab6418bfb1ba9c7d0eda71315945ecc1bdf98eec..f8cc495b8b2c46a7cbb3f6e80f7b7a6a985d4fbe 100644 --- a/data-raw/chargement_etat_civil.R +++ b/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")