|
|
@@ -26,10 +26,10 @@ racine <- racine[racine %in% GHM$GHM] |
|
|
|
rm(racines) |
|
|
|
|
|
|
|
# Lecture codes postaux <-> codes insee et garder ceux existants ---- |
|
|
|
read_csv2("insee.csv") %>% |
|
|
|
read_csv2("insee.csv", col_types = cols(INSEE = col_character())) %>% |
|
|
|
select(Codepos, insee = INSEE) %>% |
|
|
|
filter(Codepos %in% GHM$CP) %>% |
|
|
|
mutate(insee = insee %>% as.character)-> insee |
|
|
|
mutate(insee = insee %>% str_pad(5, "left", "0")) %>% |
|
|
|
filter(Codepos %in% GHM$CP) -> insee |
|
|
|
|
|
|
|
# Lecture carte et join avec codes postaux ---- |
|
|
|
readOGR("communes", "communes-20150101-100m") -> communes |
|
|
|