kidwellj
/
mapping_environmental_action
mirror of https://github.com/kidwellj/mapping_environmental_action.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

small tweaks

This commit is contained in:
Jeremy Kidwell 2019-02-28 08:51:09 +00:00
parent cd72f06380
commit 756489ac15
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mapping_draft.Rmd
View File

@ -203,6 +203,8 @@ centralbelt_region <- st_bbox(c(xmin = 224479.2, xmax = 642963.5,
st_as_sfc()
st_crs(centralbelt_region) <- st_transform(centralbelt_region, 27700)
centralbelt_ratio <- get_asp_ratio(centralbelt_region)
```
```{r import_groups_data, message=FALSE, warning=FALSE, include=FALSE}
@ -686,6 +688,7 @@ ggplot(urbanrural_gathered,
# Generate code for inset map of central belt
# First build large plot using National level view
# TODO: add inner margin to layout to provide adequate spce for inset map at bottom
urbanrural_uk_ecs_choropleth_plot <- tm_shape(urbanrural_sf_simplified) +
tm_polygons(col = "UR8FOLD", palette = "BrBG", lwd=0.001, n=9,
@ -710,6 +713,8 @@ urbanrural_uk_ecs_choropleth_plot <- tm_shape(urbanrural_sf_simplified) +
# Next build smaller central belt plot for inset:
# TODO: fix issue here with mismatching CRS cf stackexchange
urbanrural_sf_simplified_centralbelt <- st_crop(urbanrural_sf_simplified, centralbelt_region)
st_crs(urbanrural_sf_simplified)
@ -734,6 +739,13 @@ tmap_mode("plot")
urbanrural_uk_ecs_choropleth_plot
print(urbanrural_centralbelt_ecs_choropleth_plot, vp = vp_urbanrural_centralbelt_ecs_choropleth_plot)
# output inset map separately first for testing
save_tmap(urbanrural_centralbelt_ecs_choropleth_plot, "urbanrural_test.png", scale = 1, width = 6.125)
# todo: refine bounding box, implement clipping on inset map for polygon layers, calc scale of inset map, extrploate and use to configure dimensions above for inset plots
# centralbelt_ratio
save_tmap(urbanrural_uk_ecs_choropleth_plot, "urbanrural_test.png", scale = 0.7, width = 6.125,
insets_tm = urbanrural_centralbelt_ecs_choropleth_plot,
insets_vp = vp_urbanrural_centralbelt_ecs_choropleth_plot)