update des sorties thématiques en pdf

map/map_so_ii.rmd

+
 ```{r library}
 library(sf)
 library(geau)
@@ -8,12 +9,13 @@ path = "data-common/figure/so-ii/map/theme/so-ii-%s.pdf"
 
 map_so_ii(theme = "osm", theme_legend = TRUE, path = sprintf(path, "osm"))
 map_so_ii(theme = "collectivity", path = sprintf(path, "collectivity"))
-map_so_ii(theme = "collectivity", detail = "syndicate", path = sprintf(path, "syndicate"))
-map_so_ii(theme = "collectivity", detail = "epci", path = sprintf(path, "epci"))
+map_so_ii(theme = "collectivity", theme_legend = TRUE, detail = "syndicate", path = sprintf(path, "syndicate"))
+map_so_ii(theme = "collectivity", theme_legend = TRUE, detail = "epci", path = sprintf(path, "epci"))
 map_so_ii(theme = "clc", theme_legend = TRUE, path = sprintf(path, "clc"))
 map_so_ii(theme = "population", theme_legend = TRUE, path = sprintf(path, "population"))
+map_so_ii(theme = "population", year = 2018:2019, theme_legend = TRUE, path = sprintf(path, "population-last"))
 map_so_ii(theme = "catnat", theme_legend = TRUE, path = sprintf(path, "catnat"))
-map_so_ii(theme = "catchment", theme_legend = TRUE, path = sprintf(path, "catchment"))
+map_so_ii(so_ii_hydro[as.character(so_ii_hydro$degre) <= 1, ], col = scales::colour_ramp(c("white", "blue"))(.5), border = NA, theme = "catchment", theme_legend = TRUE, path = sprintf(path, "catchment"))
 map_so_ii(so_ii_hydro[as.character(so_ii_hydro$degre) <= 2, ], col = scales::colour_ramp(c("white", "blue"))(.5), border = NA, theme = "catchment", detail = 2, theme_legend = TRUE, path = sprintf(path, "catchment_sub"))
 map_so_ii(theme = "onrn", detail = "freq_sin", theme_legend = TRUE, path = sprintf(path, "freq_sin"))
 map_so_ii(theme = "onrn", detail = "cost", theme_legend = TRUE, path = sprintf(path, "cost"))