mirror of
https://github.com/kidwellj/mapping_environmental_action.git
synced 2024-10-31 23:42:20 +00:00
commenting out lines for experimental plots
This commit is contained in:
parent
8d3046fb47
commit
15e6302472
|
@ -756,18 +756,18 @@ centralbelt_region = st_bbox(c(xmin = 224479.2, xmax = 642963.5,
|
|||
# Still need to mod above line
|
||||
# Stitch together maps using grid()
|
||||
|
||||
library(grid)
|
||||
nz_height_map
|
||||
print(nz_map, vp = viewport(0.8, 0.27, width = 0.5, height = 0.5))
|
||||
# library(grid)
|
||||
# nz_height_map
|
||||
# print(nz_map, vp = viewport(0.8, 0.27, width = 0.5, height = 0.5))
|
||||
|
||||
# Generate dynamic plot for exploring
|
||||
# TODO: change basemap
|
||||
|
||||
tmap_mode("view")
|
||||
tm_shape(urbanrural_sf_simplified) + tm_polygons(col = "UR8FOLD", palette = "BrBG") +
|
||||
tm_shape(ecs_sf) +
|
||||
tm_dots("red", size = .05, alpha = .4, popup.vars = TRUE) +
|
||||
tm_view(alpha = 1, basemaps = "Esri.WorldTopoMap")
|
||||
# tmap_mode("view")
|
||||
# tm_shape(urbanrural_sf_simplified) + tm_polygons(col = "UR8FOLD", palette = "BrBG") +
|
||||
# tm_shape(ecs_sf) +
|
||||
# tm_dots("red", size = .05, alpha = .4, popup.vars = TRUE) +
|
||||
# tm_view(alpha = 1, basemaps = "Esri.WorldTopoMap")
|
||||
|
||||
|
||||
```
|
||||
|
|
Loading…
Reference in a new issue