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

made UrbanRural data download reproducible

Browse source
This commit is contained in:
Jeremy Kidwell 2018-10-16 11:20:22 +01:00
parent 47e9b74c7a
commit 71406ef201
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mapping_draft.Rmd
View file

@ -412,6 +412,7 @@ So why provide this kind of data (i.e. at the level of individual churches) when
```{r create_ecs_denomination_table}
# TODO: Need to find a prettier way to do this:
table(ecs@data[["denomination"]])
# TODO: Add dataframe with overall church numbers for the UK from "ScottishChurches" dataset by JK
```
![][Figure5]
@ -424,7 +425,10 @@ While Roman Catholic churches make up just over 10% of the church buildings in S
```{r ur8fold}
# read in relevant polygons for UR8fold scale
urbanrural <- readOGR("data", "SG_UrbanRural_2013_2014")
download.file("http://sedsh127.sedsh.gov.uk/Atom_data/ScotGov/ZippedShapefiles/SG_UrbanRural_2016.zip",
destfile = "data/SG_UrbanRural_2016.zip")
unzip("data/SG_UrbanRural_2016.zip", exdir = "data")
urbanrural <- readOGR("./data", "SG_UrbanRural_2016")
# This code will generate a table of frequencies for each spatialpointsdataframe in urbanrural
# calculate count of ECS for fields in urbanrural