kidwellj/mapping_environmental_action
1
0
Fork 0
mirror of https://github.com/kidwellj/mapping_environmental_action.git synced 2024-10-31 23:42:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixed tmap choropleth charts

Browse source
This commit is contained in:
Jeremy Kidwell 2019-02-22 10:34:53 +00:00
parent bf95175bb9
commit 1e8f91a3be
11 changed files with 25 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
figures/create_admin_barplot-1.pdf
View file

Binary file not shown.

BIN
figures/create_choropleth_others-1.pdf
View file

Binary file not shown.

BIN
figures/create_choropleth_others-2.pdf
View file

Binary file not shown.

BIN
figures/create_choropleth_others-3.pdf
View file

Binary file not shown.

BIN
figures/create_simd_barplot-1.pdf
View file

Binary file not shown.

BIN
figures/create_ur_barplot-1.pdf
View file

Binary file not shown.

BIN
figures/create_urbanrural_ecs_chart_choropleth-1.pdf
View file

Binary file not shown.

BIN
figures/plot_admin_ecs_choropleth-1.pdf
View file

Binary file not shown.

BIN
figures/plot_admin_ecs_normed_choropleth-1.pdf
View file

Binary file not shown.

BIN
figures/plot_admin_ecs_normed_choropleth-2.pdf
View file

Binary file not shown.

44
mapping_draft.Rmd
View file

@ -1123,7 +1123,8 @@ write.csv(forestinv_counts_merged, "derivedData/forestinv_counts_merged.csv", ro
# Plot SSSI polygons (showing buffers) with ECS points (coloured by location) # Plot SSSI polygons (showing buffers) with ECS points (coloured by location)
tm_shape(sssi_simplified) + tm_shape(sssi_simplified) +
tm_fill(col = "green", alpha = 0.3, lwd=0.001) + tm_fill(col = "green", alpha = 0.3, lwd=0.001,
title = "Sites of Special Scientific Interest and ECS Groups") +
# tm_shape(sssi_buf50) + tm_borders(lwd=0.001) + # tm_shape(sssi_buf50) + tm_borders(lwd=0.001) +
# tm_shape(sssi_buf500) + tm_borders(lwd=0.001) # tm_shape(sssi_buf500) + tm_borders(lwd=0.001)
tm_shape(admin_lev1_sf) + tm_borders(lwd=0.1) + tm_shape(admin_lev1_sf) + tm_borders(lwd=0.1) +
@ -1131,38 +1132,43 @@ tm_shape(sssi_simplified) +
# tm_shape(ecs_sf_sssi50m) + tm_dots("yellow", size = .5, alpha = .4) + # tm_shape(ecs_sf_sssi50m) + tm_dots("yellow", size = .5, alpha = .4) +
# tm_shape(ecs_sf_sssi500m) + tm_dots("orange", size = .5, alpha = .4) + # tm_shape(ecs_sf_sssi500m) + tm_dots("orange", size = .5, alpha = .4) +
# tm_shape(ecs_sf_sssibeyond500m) + tm_dots("red", size = .5, alpha = .4) # tm_shape(ecs_sf_sssibeyond500m) + tm_dots("red", size = .5, alpha = .4)
tm_scale_bar(position = c("left", "bottom")) + tm_scale_bar(position = c("right", "bottom")) +
tm_style("gray", title = "Figure 11") + tm_style("gray") +
tm_credits("Data: UK Data Service (OGL) tm_credits("Data: UK Data Service (OGL)\n& Jeremy H. Kidwell,\nGraphic is CC-by-SA 4.0",
& Jeremy H. Kidwell, size = 0.4,
Graphic is CC-by-SA 4.0", position = c("left", "bottom"),
position = c("right", "bottom")) + just = c("left", "bottom"),
tm_layout(title = "Sites of Special Scientific Interest and ECS Groups", align = "left") +
tm_layout(asp = NA,
frame = FALSE, frame = FALSE,
title.size = .7 title = "Figure 11",
title.size = .7,
legend.title.size = .7
) )
``` ```
```{r all_wilderness_ecs_plot, message=FALSE, warning=FALSE, fig.width=4, fig.cap="Figure 12"} ```{r all_wilderness_ecs_plot, message=FALSE, warning=FALSE, fig.width=4, fig.cap="Figure 12"}
# Plot map with all wilderness shapes on it # Plot map with all wilderness shapes on it
tm_shape(sssi_simplified) + tm_fill(col = "blue", alpha = 0.3, lwd=0.001) + tm_shape(sssi_simplified) + tm_fill(col = "blue", alpha = 0.3, lwd=0.001, title = "Wilderness Areas") +
tm_shape(wildland_simplified) + tm_fill(col = "green", alpha = 0.3, lwd=0.001) + tm_shape(wildland_simplified) + tm_fill(col = "green", alpha = 0.3, lwd=0.001) +
tm_shape(forestinv_simplified) + tm_fill(col = "orange", alpha = 0.3, lwd=0.001) + tm_shape(forestinv_simplified) + tm_fill(col = "orange", alpha = 0.3, lwd=0.001) +
tm_scale_bar(breaks = c(0, 100, 200), size = 1) + tm_scale_bar(breaks = c(0, 100, 200), size = 1) +
tm_shape(ecs_sf) + tm_dots("red", size = .05, alpha = .4) + tm_shape(ecs_sf) + tm_dots("red", size = .05, alpha = .4) +
tm_scale_bar(position = c("left", "bottom")) + tm_scale_bar(position = c("right", "bottom")) +
tm_style("gray", title = "Figure 12") + tm_style("gray") +
tm_credits("Data: UK Data Service (OGL) tm_credits("Data: UK Data Service (OGL)\n& Jeremy H. Kidwell,\nGraphic is CC-by-SA 4.0",
& Jeremy H. Kidwell, size = 0.4,
Graphic is CC-by-SA 4.0", position = c("left", "bottom"),
position = c("right", "bottom")) + just = c("left", "bottom"),
tm_layout(title = "Wilderness Areas", align = "left") +
tm_layout(asp = NA,
frame = FALSE, frame = FALSE,
title.size = .7 title = "Figure 12",
title.size = .7,
legend.title.size = .7
) )
``` ```