From 4f0e38a1b001b441ca8b1d041627d325df079dec Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Thu, 19 Dec 2024 15:57:42 +0100
Subject: [PATCH] mise a jour table 2023
---
data-raw/chargement_etat_civil.R | 31 +++++++++++++++++++------------
1 file changed, 19 insertions(+), 12 deletions(-)
diff --git a/data-raw/chargement_etat_civil.R b/data-raw/chargement_etat_civil.R
index ab6418b..f8cc495 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")
--
GitLab