kidwellj/mapping_environmental_action
1
0
Fork 0
mirror of https://github.com/kidwellj/mapping_environmental_action.git synced 2024-11-01 07:52:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

adapting figure1, fine tuning

Browse source
This commit is contained in:
Jeremy Kidwell 2019-02-17 18:59:31 +00:00
parent 352c0b46e9
commit 603430907c
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mapping_draft.Rmd
View file

@ -329,18 +329,17 @@ tm_shape(admin_lev2) +
tm_fill(col = "ecs_count", palette = "Oranges", title = "Concentration of ECS groups") + tm_fill(col = "ecs_count", palette = "Oranges", title = "Concentration of ECS groups") +
tm_borders(alpha=.5) + tm_borders(alpha=.5) +
tm_shape(admin_lev1) + tm_shape(admin_lev1) +
tm_borders(lwd=2) + tm_borders(lwd=0.8) +
# TODO: Change title field "name" to match admin1 # TODO: Change title field "name" to match admin1
# also consider scaling text size using area # quick plot example: # also consider scaling text size using area # quick plot example:
# qtm(World, fill = "income_grp", text = "iso_a3", text.size = "AREA") # use "World$" to see the two attributes: income_grp and iso_a3, text.size= area: text is sized increasingly with coutry area size. # qtm(World, fill = "income_grp", text = "iso_a3", text.size = "AREA") # use "World$" to see the two attributes: income_grp and iso_a3, text.size= area: text is sized increasingly with coutry area size.
tm_text("name", size=.8, shadow=TRUE, # tm_text("name", size=.2, shadow=TRUE, bg.color="white", bg.alpha=.25) +
bg.color="white", bg.alpha=.25) +
# tm_shape(ecs_sf) + # tm_shape(ecs_sf) +
# tm_dots("red", size = .05, alpha = .4) + # tm_dots("red", size = .05, alpha = .4) +
# tm_scale_bar(position = c("right", "bottom")) + # tm_scale_bar(position = c("right", "bottom")) +
tm_style("gray") + tm_style("gray") +
tm_credits("Data: UK Data Service (OGL)\n& Jeremy H. Kidwell,\nGraphic is CC-by-SA 4.0", tm_credits("Data: UK Data Service (OGL)\n& Jeremy H. Kidwell,\nGraphic is CC-by-SA 4.0",
size = 0.7, size = 0.4,
position = c("left", "bottom"), position = c("left", "bottom"),
just = c("left", "bottom"), just = c("left", "bottom"),
align = "left") + align = "left") +