premier commit

.gitignore

+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

chargement_ptz.R

+library(readr)
+library(dplyr)
+millesime = 2023
+
+# path <- paste("/nfs/data/partage-PTZ-EPTZ/PTZ-EPTZ/BASE_PTZ_DHUP_",millesime,"_DREAL.csv")
+BASE_PTZ_DHUP<- read_delim(paste0("/nfs/data/partage-PTZ-EPTZ/PTZ-EPTZ/BASE_PTZ_DHUP_",millesime,"_DREAL.csv"),
+                                       delim = ";", escape_double = FALSE, trim_ws = TRUE)
+
+ptz <- BASE_PTZ_DHUP %>%
+  # cpfl = code postal , cins = code insee, cdco = code commune déclaré
+  # lcom = libéllé commune, timm = type logement (1 = individuel, 2 = collectif)
+  # tope = type d'opération :
+  # 1 : achat neuf
+  # 2 : Construction de maison individuelle (achat du terrain compris)
+  # 3 : Construction de maison individuelle (hors achat du terrain)
+  # 4 : Acquisition amélioration pour les acquisitions seules
+  # 5 : Transformation de locaux non destinés à l’habitation en logement
+  # 6 : Levée d’option en location-accession, pour le 1er locataire
+  # 7 : Acquisition d’un logement avec travaux de remise à neuf
+  select (cpfl,cins,cdco,lcom,timm,tope) %>%
+  mutate(type_logt = case_when(
+    timm == 1 ~ "individuel",
+    timm == 2 ~ "collectif",
+    TRUE ~ "non_renseigne"),
+         etat_logt = case_when(
+    tope %in% c(1,2,3) ~ "neuf",
+    tope %in% c(4,5,6,7) ~ "ancien",
+    TRUE ~ "non_renseigne")
+  ) %>%
+  rename(code_insee = cins) %>%
+  group_by(code_insee,type_logt,etat_logt) %>%
+  summarise(nb_logt = length(code_insee)) %>%
+  ungroup()
+
+#controle
+nb_lgts <- ptz %>% pull(nb_logt) %>% sum()

ptz-communal.Rproj

+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes