|
|
|
@@ -30,7 +30,8 @@ read_csv2("insee.csv") %>% |
|
|
|
filter(Codepos %in% GHM$CP) %>% |
|
|
|
mutate(insee = insee %>% as.character)-> insee |
|
|
|
|
|
|
|
readOGR("communes/") -> communes |
|
|
|
# Lecture carte et join avec codes postaux ---- |
|
|
|
readOGR("communes", "communes-20150101-100m") -> communes |
|
|
|
|
|
|
|
communes@data %>% |
|
|
|
left_join(insee) -> communes@data |
|
|
|
|
