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
|
# Still need to mod above line
|
||||||
# Stitch together maps using grid()
|
# Stitch together maps using grid()
|
||||||
|
|
||||||
library(grid)
|
# library(grid)
|
||||||
nz_height_map
|
# nz_height_map
|
||||||
print(nz_map, vp = viewport(0.8, 0.27, width = 0.5, height = 0.5))
|
# print(nz_map, vp = viewport(0.8, 0.27, width = 0.5, height = 0.5))
|
||||||
|
|
||||||
# Generate dynamic plot for exploring
|
# Generate dynamic plot for exploring
|
||||||
# TODO: change basemap
|
# TODO: change basemap
|
||||||
|
|
||||||
tmap_mode("view")
|
# tmap_mode("view")
|
||||||
tm_shape(urbanrural_sf_simplified) + tm_polygons(col = "UR8FOLD", palette = "BrBG") +
|
# tm_shape(urbanrural_sf_simplified) + tm_polygons(col = "UR8FOLD", palette = "BrBG") +
|
||||||
tm_shape(ecs_sf) +
|
# tm_shape(ecs_sf) +
|
||||||
tm_dots("red", size = .05, alpha = .4, popup.vars = TRUE) +
|
# tm_dots("red", size = .05, alpha = .4, popup.vars = TRUE) +
|
||||||
tm_view(alpha = 1, basemaps = "Esri.WorldTopoMap")
|
# tm_view(alpha = 1, basemaps = "Esri.WorldTopoMap")
|
||||||
|
|
||||||
|
|
||||||
```
|
```
|
||||||
|
|
Loading…
Reference in a new issue