mirror of
https://github.com/kidwellj/mapping_environmental_action.git
synced 2024-11-01 07:52:21 +00:00
added reproducible url for SIMD
This commit is contained in:
parent
7c0792444c
commit
a2e87a98ac
|
@ -494,7 +494,15 @@ dev.off()
|
||||||
|
|
||||||
```{r simd}
|
```{r simd}
|
||||||
# read in relevant polygons, Scottish Index of Multiple deprivation
|
# read in relevant polygons, Scottish Index of Multiple deprivation
|
||||||
simd <- readOGR("data", "simd_04-12_all_data")
|
download.file("http://simd.scot/2016/data/simd2016_withgeog.zip",
|
||||||
|
destfile = "data/simd2016_withgeog.zip")
|
||||||
|
unzip("data/simd2016_withgeog.zip", exdir = "data", junkpaths = TRUE)
|
||||||
|
simd_shapes <- readOGR("./data", "sc_dz_11")
|
||||||
|
simd_indicators <- read.csv("./data/simd2016_withinds.csv")
|
||||||
|
simd <- merge(x=simd_shapes, y=simd_indicators, by="Data_Zone")
|
||||||
|
|
||||||
|
# commenting out old dataset in light of reproducible version above
|
||||||
|
# simd <- readOGR("data", "simd_04-12_all_data")
|
||||||
|
|
||||||
# STAGE 1, augment each dataset with relevant (geolocated) columns from SIMD
|
# STAGE 1, augment each dataset with relevant (geolocated) columns from SIMD
|
||||||
# examine which ecs fall within each SIMD classification
|
# examine which ecs fall within each SIMD classification
|
||||||
|
|
Loading…
Reference in a new issue