commenting out lines for experimental plots

This commit is contained in:
Jeremy Kidwell 2019-02-13 23:42:43 +00:00
parent 8d3046fb47
commit 15e6302472

View file

@ -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")
``` ```