diff --git a/map/map_so_ii.rmd b/map/map_so_ii.rmd index 123de2dcd16c3b48784c2458102de7feda2df4a5..1080c8f9c3f2da7c4935935be8d8ba638846107a 100644 --- a/map/map_so_ii.rmd +++ b/map/map_so_ii.rmd @@ -1,3 +1,4 @@ + ```{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"))