|
|
|
@@ -32,7 +32,7 @@ read_csv2("insee.csv", col_types = cols(INSEE = col_character())) %>% |
|
|
|
filter(Codepos %in% GHM$Codepos) -> insee |
|
|
|
|
|
|
|
# Lecture carte et join avec codes postaux ---- |
|
|
|
readOGR("communes", "communes-20150101-100m") -> communes |
|
|
|
readOGR("communes", "communes-20150101-simpl") -> communes |
|
|
|
|
|
|
|
communes@data %>% |
|
|
|
left_join(insee) -> communes@data |
|
|
|
|
