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

working on fixing fortify

Browse source
This commit is contained in:
Jeremy Kidwell 2019-01-29 07:22:14 +00:00
parent e9f9ff509b
commit 136377a095
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mapping_draft.Rmd
View file

@ -278,14 +278,15 @@ Perhaps the first important question to ask of these groups is, where are they?
# 2. Need to clip choropleth polygons to buildings shapefile # 2. Need to clip choropleth polygons to buildings shapefile
# tidy data to select just ecs_count data # tidy data to select just ecs_count data
admin_lev1_gathered <- gather(admin_lev1_sf, value="number", ecs_count) # admin_lev1_gathered <- gather(admin_lev1_sf, value="number", ecs_count)
# plot simple choropleth map using ECS data points, as here: https://www.r-graph-gallery.com/327-chloropleth-map-from-geojson-with-ggplot2/ # plot simple choropleth map using ECS data points, as here: https://www.r-graph-gallery.com/327-chloropleth-map-from-geojson-with-ggplot2/
admin_lev1_fortified <- fortify(admin_lev1) admin_lev1_fortified <- fortify(admin_lev1)
admin_lev1_fortified <- join(admin_lev1_fortified,admin_lev1@data$ecs_count, by="id")
# draw map using sp data # draw map using sp data
ggplot() + geom_polygon(aes(x = long, y = lat, group = group), data = admin_lev1_fortified, colour = 'black', fill = 'ecs_count', alpha = .4, size = .3) + labs(title = "Figure 1", subtitle="Concentration of ECS groups", fill = "Groups") ggplot() + geom_polygon(aes(x = long, y = lat, group = group), data = admin_lev1_fortified, colour = 'black', fill = admin_lev1_fortified$ecs_count, alpha = .4, size = .3) + labs(title = "Figure 1", subtitle="Concentration of ECS groups", fill = "Groups")
# save plot to PDF (for testing) # save plot to PDF (for testing)
ggsave("figures/admin1_choropleth_ecs.pdf") ggsave("figures/admin1_choropleth_ecs.pdf")