update git

Author: defuneste

.gitignore

@@ -136,13 +136,16 @@ table_adresse.shp <- rbind(table_adresse.shp, bob)
 
 geocodage_clb.shp <- sf::st_read("data/sortie_15_04.shp" , stringsAsFactors = FALSE)
 
-geocodage_clbv2.shp$date_start <- parse_date_time(geocodage_clbv2.shp$date_start, orders = c("my", "dmy"))
-geocodage_clbv2.shp$date_end_a <- parse_date_time(geocodage_clbv2.shp$date_end_a, orders = c("my", "dmy"))
+geocodage_clb.shp$date_start <- lubridate::parse_date_time(geocodage_clb.shp$date_start, orders = c("my", "dmy"))
+geocodage_clb.shp$date_end_a <- lubridate::parse_date_time(geocodage_clb.shp$date_end_a, orders = c("my", "dmy"))
 
-geocodage_clbv2.shp <- geocodage_clbv2.shp %>% 
-    dplyr::select(ID_CARTO, Loc_name, Commune, CP, nb_rue_p, rue_p, compl_add_, pt_remarq_, lieudit_p ) %>% 
-    tidyr::unite("Adresse", nb_rue_p, rue_p, sep = " ",  na.rm = TRUE) %>% 
-    tidyr::unite("Info_sup", lieudit_p, compl_add_, pt_remarq_, na.rm = TRUE)
+geocodage_clb.shp <- geocodage_clb.shp %>% 
+    sf::st_drop_geometry() %>% 
+    dplyr::select(ID_CARTO, date_start, date_end_a )
+
+table_adresse.shp <- dplyr::left_join(table_adresse.shp, geocodage_clb.shp, by = c("ID_CARTO" = "ID_CARTO")) 
+
+sf::st_write(table_adresse.shp, "data/envoi/clean_adressev1.geojson")
 
 # %>%
 #     select(-c(date_start, date_end, commune, adresse, cp, info_sup,  nb_cluster, nb_bigcluster)) %>%

Prétraitement_ETL/ajout_word_classif.R

@@ -1,9 +1,10 @@
-### reassemblage des fichier géocoder verifier après la mesure de distance entre les desux geocodages.
+### reassemblage des fichier géocoder verifier après la mesure de distance entre les deux geocodages.
 # objectif recupérer l'ensemble des adresses qui avant le geocodages était a plus de 5 m
 
-library(sf)
 library(dplyr)
+library(sf)
 
+# on va charger les différentes addresses verifiées 
 part_oli <- sf::st_read("data/verif/adresse_olivier.geojson")
 part_oli$geocodeur <- "olivier"
 # 1299
@@ -15,34 +16,24 @@ part_matt_a$geocodeur <- "matthieu"
 part_matt_b <- sf::st_read("data/verif/adresse_matthieu_bisbok.geojson")
 part_matt_b$geocodeur <- "matthieu"
 
-# # on en a 7 en commun 
-# verif_ecart.shp %>% 
-#     dplyr::group_by(ID_CARTO) %>% 
-#     mutate(count = n()) %>% 
-#     ungroup() %>% 
-#     filter(count > 1)
-# il y avait 7 identiques j'ai pris ceux de matthieu
+# il y avait des doublons
 part_oli <- part_oli[!part_oli$ID_CARTO %in% part_matt_a$ID_CARTO,]
 
+# on agregge puis supprime
 verif_ecart.shp <- rbind(part_oli, part_matt_a, part_matt_b)
 rm(part_matt_a, part_matt_b, part_oli)
 
-dim(verif_ecart.shp)
-
-table(verif_ecart.shp$geocodage_main)
-
 ## ce qui avait deja éte geocodé à la main 
-adresse <- sf::st_read("data/verif/distance.geojson")
-adresse_filtre <- sf::st_drop_geometry(adresse) 
-adresse_filtre$distance <-as.numeric(adresse_filtre$distance)
-rm(adresse)
+adresse <- sf::st_read("data/verif/distance.geojson") %>% 
+                 sf::st_drop_geometry()
+adresse$distance <-as.numeric(adresse$distance)
 
 geocoder_main <- sf::st_read("data/geocodage_main_total.geojson")
 
 # on en a 93 qui avaient déja été fait ...
 geocoder_main[geocoder_main$adresse_id %in% verif_ecart.shp$ID_CARTO, ]
 
-deja_fait <- geocoder_main[geocoder_main$adresse_id %in% adresse_filtre$ID_CARTO ,]
+deja_fait <- geocoder_main[geocoder_main$adresse_id %in% adresse$ID_CARTO ,]
 
 ce_qui_manque <- deja_fait[!deja_fait$adresse_id %in% verif_ecart.shp$ID_CARTO, ]