R/data.R
In Robinlovelace/ukboundaries:
#' Output area centroids
#'
#' See https://www.ons.gov.uk/peoplepopulationandcommunity/populationandmigration/populationestimates/datalist?sortBy=release_date&query=output+area&filter=datasets&fromDateDay=&fromDateMonth=&fromDateYear=&toDateDay=&toDateMonth=&toDateYear=
#'
#' @name oas_cents
#' @aliases oas_cents_lds oas_sw
#' @examples \dontrun{
#' u_oas_cents = "https://opendata.arcgis.com/datasets/ba64f679c85f4563bfff7fad79ae57b1_0.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' u_oas_cents = duraz(u_oas_cents)
#' plot(u_oas_cents$geometry) # not all of england is covered
#' object.size(u_oas_cents)
#' u_pop = "https://www.ons.gov.uk/file?uri=/peoplepopulationandcommunity/populationandmigration/populationestimates/datasets/censusoutputareaestimatesinthesouthwestregionofengland/mid2016sape19dt10g/sape19dt10gmid2016coaunformattedsyoaestimatessouthwest.zip"
#' download.file(u_pop, "sape19dt10gmid2016coaunformattedsyoaestimatessouthwest.zip")
#' unzip("sape19dt10gmid2016coaunformattedsyoaestimatessouthwest.zip")
#' d = readxl::read_excel("SAPE19DT10g-mid-2016-coa-unformatted-syoa-estimates-south-west.xls", sheet = 4, skip = 3)
#' library(dplyr)
#' d = select(d, oa11cd = OA11CD, `All Ages`)
#' oas_sw = u_oas_cents[u_oas_cents$oa11cd %in% d$oa11cd, ]
#' plot(oas_sw)
#' oas_sw = left_join(oas_sw, d)
#' oas_sw = st_transform(oas_sw, 4326)
#' bristol = osmdata::getbb(place_name = "Bristol", format_out = "sf_polygon")
#' oas_sw = oas_sw[bristol, ]
#' plot(oas_sw)
#' devtools::use_data(oas_sw, overwrite = TRUE)
#' delete_shapefiles()
#' }
NULL
#' @name cas2003_vsimple
#' @aliases cas2003 cas2003_simple
#' @examples \dontrun{
#' u_cas_uas = "https://borders.ukdataservice.ac.uk/ukboundaries/easy_download/prebuilt/shape/England_ua_caswa_2001_clipped.zip"
#' cas2003_uas = duraz(u_cas_uas)
#' plot(cas2003_uas$geometry) # not all of england is covered
#' u_cas_counties = "https://borders.ukdataservice.ac.uk/ukboundaries/easy_download/prebuilt/shape/England_caswa_2001_clipped.zip"
#' cas2003_counties = duraz(u_cas_counties)
#' plot(cas2003_counties$geometry)
#' # cas2003_simple = rmapshaper::ms_simplify(input = cas2003, keep = 0.05) # mishap with this...
#' cas2003_uas = duraz("england_ua_caswa_2001_clipped.zip")
#' cas2003_counties = duraz("england_caswa_2001_clipped.zip")
#' cas2003 = rbind(cas2003_counties, cas2003_uas)
#' cas2003 = st_transform(cas2003, 4326)
#' st_write(cas2003, "cas2003.shp")
#' ms_msg = "mapshaper cas2003.shp -simplify dp 5% -o format=geojson cas2003.json"
#' system.time(system(ms_msg))
#' ms_msg = "mapshaper cas2003.shp -simplify dp 0.5% -o format=geojson cas2003-vsimple.json"
#' system(ms_msg)
#' cas2003_simple = st_read("cas2003.json")
#' cas2003_vsimple = st_read("cas2003-vsimple.json")
#' object.size(cas2003)
#' object.size(cas2003_simple)
#' object.size(cas2003_vsimple)
#' plot(cas2003_vsimple$geometry)
#' mapview::mapview(cas2003_vsimple)
#' devtools::use_data(cas2003_simple, overwrite = TRUE)
#' delete_shapefiles()
#' }
NULL
#' MSOA boundaries in Leeds
#'
#' @name msoa2011_lds
#' @examples \dontrun{
#' u = "https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebuilt/shape/infuse_msoa_lyr_2011_clipped.zip"
#' msoa2011 = duraz(u)
#' msoa2011 = st_transform(msoa2011, 4326)
#' object.size(msoa2011) / 1e6 # 300+ mb
#' cents = st_centroid(msoa2011)
#' cents_lds = cents[leeds, ]
#' sel = msoa2011$geo_code %in% cents_lds$geo_code
#' msoa2011_lds = msoa2011[sel, ]
#' object.size(msoa2011_lds) / 1e6 # 4mb
#' mapview::mapview(msoa2011_lds)
#' plot(msoa2011_lds$geometry)
#' devtools::use_data(msoa2011_lds)
#' }
NULL
#' MSOA boundaries very simple
#'
#' @name msoa2011_vsimple
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/datasets/middle-layer-super-output-areas-december-2011-super-generalised-clipped-boundaries-in-england-and-wales
#' u = "https://opendata.arcgis.com/datasets/826dc85fb600440889480f4d9dbb1a24_3.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' msoa2011_vsimple = duraz(u)
#' msoa2011_vsimple = st_transform(msoa2011_vsimple, 4326)
#' plot(msoa2011_vsimple$geometry)
#' devtools::use_data(msoa2011_vsimple, overwrite = TRUE)
#' }
NULL
#' LSOA boundaries in Leeds
#'
#' @name lsoa2011_lds
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/
#' u = "https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebuilt/shape/infuse_lsoa_lyr_2011_clipped.zip"
#' lsoa2011 = duraz(u)
#' lsoa2011 = st_transform(lsoa2011, 4326)
#' object.size(lsoa2011) / 1000000 # 660 mb
#' cents = st_centroid(lsoa2011)
#' cents_lds = cents[leeds, ]
#' sel = lsoa2011$geo_code %in% cents_lds$geo_code
#' lsoa2011_lds = lsoa2011[sel, ]
#' object.size(lsoa2011_lds) / 1e6 # 12.5 mb
#' plot(lsoa2011$geometry[1])
#' devtools::use_data(lsoa2011_lds, overwrite = TRUE)
#' }
NULL
#' LSOA boundaries - simplified
#'
#' @name lsoa2011_simple
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/
#' u = "https://opendata.arcgis.com/datasets/da831f80764346889837c72508f046fa_2.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' lsoa2011 = duraz(u)
#' lsoa2011 = st_transform(lsoa2011, 4326)
#' object.size(lsoa2011) / 1000000 # 63 mb
#' lsoa2011_simple = stplanr::mapshape(lsoa2011, percent = 20)
#' object.size(lsoa2011_simple) / 1e6 # 40 mb
#' plot(lsoa2011$geometry[1:3])
#' plot(lsoa2011_simple$geometry[1:3], add = TRUE)
#' devtools::use_data(lsoa2011_simple, overwrite = TRUE)
#' }
NULL
#' lad boundaries - 2011
#'
#' @name lad2016_simple
#' @examples \dontrun{
#' u = "https://census.edina.ac.uk/ukborders/easy_download/prebuilt/shape/England_lad_2011_gen_clipped.zip"
#' lad2011_simple = duraz(u)
#' object.size(lad2016_simple) / 1000000 # 1 mb
#' plot(lad2016_simple)
#' devtools::use_data(lad2016_simple)
#' }
NULL
#' lad boundaries
#'
#' @name lad2016_simple
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/
#' u = "http://esriuktechnicalsupportopendata-techsupportuk.opendata.arcgis.com/datasets/686603e943f948acaa13fb5d2b0f1275_4.zip"
#' lad2016_simple = duraz(u)
#' object.size(lad2016_simple) / 1000000 # 1 mb
#' plot(lad2016_simple)
#' devtools::use_data(lad2016_simple)
#' }
NULL
#' Local authority 2018 boundaries
#'
#' @name lad2018
#' @examples \dontrun{
#' u = "http://esriuktechnicalsupportopendata-techsupportuk.opendata.arcgis.com/datasets/3dc07a60f46b4e01ab0ec8ba71c7a879_1.zip"
#' lad2018 = duraz(u)
#' unzip("zipped_shapefile.zip")
#' lad2018 = sf::st_read("Local_Administrative_Units_Level_1_January_2018_Full_Extent_Boundaries_in_United_Kingdom.shp")
#' lad2018 = stplanr::mapshape(lad2018, percent = 5)
#' object.size(lad2018) / 1000000 # 1 mb
#' mapview::mapview(lad2018)
#' devtools::use_data(lad2018)
#' }
NULL
#' Enumeration Districts 1981
#'
#' Saved for Leeds due to size constraints
#'
#' @name ed1981
#' @examples \dontrun{
#' u = "https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebuilt/shape/England_ed_1981.zip"
#' ed1981 = duraz(u)
#' ed1981 = sf::st_transform(ed1981, 4326)
#' object.size(ed1981) / 1000000 # 143 mb
#' object.size(ed1981_simple) / 1e6 # mb
#' ed_cents = st_centroid(ed1981_simple)
#' ed_cents_lds = ed_cents[leeds, ]
#' ed1981 = ed1981[ed_cents_lds, ]
#' mapview::mapview(ed1981)
#' devtools::use_data(ed1981)
#' }
NULL
#' Leeds outline
#' @name leeds
#' @examples \dontrun{
#' leeds = lad2018[lad2018$lau118nm == "Leeds", ]
#' devtools::use_data(leeds)
#' }
NULL
#' Travel to work areas
#'
#' See [ons.gov.uk](https://www.ons.gov.uk/employmentandlabourmarket/peopleinwork/employmentandemployeetypes/articles/traveltoworkareaanalysisingreatbritain/2016) for details.
#'
#' @name ttwa
#' @examples \dontrun{
#' u = "https://opendata.arcgis.com/datasets/d3062ec5f03b49a7be631d71586cac8c_4.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' ttwa_simple = duraz(u)
#' ttwa_simple = st_transform(ttwa_simple, 4326)
#' mapview::mapview(ttwa_simple)
#' devtools::use_data(ttwa_simple)
#' }
NULL
#' 2011 census hierarchical geographies
#' @name census11_codes
#' @examples \dontrun{
#' # Get all OA codes within the City of London
#' ladcode = "E09000001" # City of London
#' oacodes = getsubgeographies(ladcode, "OA11")
#' # Get the OA polygons and draw them
#' sdf = getspatialdata(oacodes, "Boundaries", "GeneralisedClipped")
#' plot(sdf$geometry)
#' }
NULL
Robinlovelace/ukboundaries documentation built on May 28, 2019, 2:28 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' Output area centroids
#'
#' See https://www.ons.gov.uk/peoplepopulationandcommunity/populationandmigration/populationestimates/datalist?sortBy=release_date&query=output+area&filter=datasets&fromDateDay=&fromDateMonth=&fromDateYear=&toDateDay=&toDateMonth=&toDateYear=
#'
#' @name oas_cents
#' @aliases oas_cents_lds oas_sw
#' @examples \dontrun{
#' u_oas_cents = "https://opendata.arcgis.com/datasets/ba64f679c85f4563bfff7fad79ae57b1_0.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' u_oas_cents = duraz(u_oas_cents)
#' plot(u_oas_cents$geometry) # not all of england is covered
#' object.size(u_oas_cents)
#' u_pop = "https://www.ons.gov.uk/file?uri=/peoplepopulationandcommunity/populationandmigration/populationestimates/datasets/censusoutputareaestimatesinthesouthwestregionofengland/mid2016sape19dt10g/sape19dt10gmid2016coaunformattedsyoaestimatessouthwest.zip"
#' download.file(u_pop, "sape19dt10gmid2016coaunformattedsyoaestimatessouthwest.zip")
#' unzip("sape19dt10gmid2016coaunformattedsyoaestimatessouthwest.zip")
#' d = readxl::read_excel("SAPE19DT10g-mid-2016-coa-unformatted-syoa-estimates-south-west.xls", sheet = 4, skip = 3)
#' library(dplyr)
#' d = select(d, oa11cd = OA11CD, `All Ages`)
#' oas_sw = u_oas_cents[u_oas_cents$oa11cd %in% d$oa11cd, ]
#' plot(oas_sw)
#' oas_sw = left_join(oas_sw, d)
#' oas_sw = st_transform(oas_sw, 4326)
#' bristol = osmdata::getbb(place_name = "Bristol", format_out = "sf_polygon")
#' oas_sw = oas_sw[bristol, ]
#' plot(oas_sw)
#' devtools::use_data(oas_sw, overwrite = TRUE)
#' delete_shapefiles()
#' }
NULL
#' @name cas2003_vsimple
#' @aliases cas2003 cas2003_simple
#' @examples \dontrun{
#' u_cas_uas = "https://borders.ukdataservice.ac.uk/ukboundaries/easy_download/prebuilt/shape/England_ua_caswa_2001_clipped.zip"
#' cas2003_uas = duraz(u_cas_uas)
#' plot(cas2003_uas$geometry) # not all of england is covered
#' u_cas_counties = "https://borders.ukdataservice.ac.uk/ukboundaries/easy_download/prebuilt/shape/England_caswa_2001_clipped.zip"
#' cas2003_counties = duraz(u_cas_counties)
#' plot(cas2003_counties$geometry)
#' # cas2003_simple = rmapshaper::ms_simplify(input = cas2003, keep = 0.05) # mishap with this...
#' cas2003_uas = duraz("england_ua_caswa_2001_clipped.zip")
#' cas2003_counties = duraz("england_caswa_2001_clipped.zip")
#' cas2003 = rbind(cas2003_counties, cas2003_uas)
#' cas2003 = st_transform(cas2003, 4326)
#' st_write(cas2003, "cas2003.shp")
#' ms_msg = "mapshaper cas2003.shp -simplify dp 5% -o format=geojson cas2003.json"
#' system.time(system(ms_msg))
#' ms_msg = "mapshaper cas2003.shp -simplify dp 0.5% -o format=geojson cas2003-vsimple.json"
#' system(ms_msg)
#' cas2003_simple = st_read("cas2003.json")
#' cas2003_vsimple = st_read("cas2003-vsimple.json")
#' object.size(cas2003)
#' object.size(cas2003_simple)
#' object.size(cas2003_vsimple)
#' plot(cas2003_vsimple$geometry)
#' mapview::mapview(cas2003_vsimple)
#' devtools::use_data(cas2003_simple, overwrite = TRUE)
#' delete_shapefiles()
#' }
NULL
#' MSOA boundaries in Leeds
#'
#' @name msoa2011_lds
#' @examples \dontrun{
#' u = "https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebuilt/shape/infuse_msoa_lyr_2011_clipped.zip"
#' msoa2011 = duraz(u)
#' msoa2011 = st_transform(msoa2011, 4326)
#' object.size(msoa2011) / 1e6 # 300+ mb
#' cents = st_centroid(msoa2011)
#' cents_lds = cents[leeds, ]
#' sel = msoa2011$geo_code %in% cents_lds$geo_code
#' msoa2011_lds = msoa2011[sel, ]
#' object.size(msoa2011_lds) / 1e6 # 4mb
#' mapview::mapview(msoa2011_lds)
#' plot(msoa2011_lds$geometry)
#' devtools::use_data(msoa2011_lds)
#' }
NULL
#' MSOA boundaries very simple
#'
#' @name msoa2011_vsimple
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/datasets/middle-layer-super-output-areas-december-2011-super-generalised-clipped-boundaries-in-england-and-wales
#' u = "https://opendata.arcgis.com/datasets/826dc85fb600440889480f4d9dbb1a24_3.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' msoa2011_vsimple = duraz(u)
#' msoa2011_vsimple = st_transform(msoa2011_vsimple, 4326)
#' plot(msoa2011_vsimple$geometry)
#' devtools::use_data(msoa2011_vsimple, overwrite = TRUE)
#' }
NULL
#' LSOA boundaries in Leeds
#'
#' @name lsoa2011_lds
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/
#' u = "https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebuilt/shape/infuse_lsoa_lyr_2011_clipped.zip"
#' lsoa2011 = duraz(u)
#' lsoa2011 = st_transform(lsoa2011, 4326)
#' object.size(lsoa2011) / 1000000 # 660 mb
#' cents = st_centroid(lsoa2011)
#' cents_lds = cents[leeds, ]
#' sel = lsoa2011$geo_code %in% cents_lds$geo_code
#' lsoa2011_lds = lsoa2011[sel, ]
#' object.size(lsoa2011_lds) / 1e6 # 12.5 mb
#' plot(lsoa2011$geometry[1])
#' devtools::use_data(lsoa2011_lds, overwrite = TRUE)
#' }
NULL
#' LSOA boundaries - simplified
#'
#' @name lsoa2011_simple
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/
#' u = "https://opendata.arcgis.com/datasets/da831f80764346889837c72508f046fa_2.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' lsoa2011 = duraz(u)
#' lsoa2011 = st_transform(lsoa2011, 4326)
#' object.size(lsoa2011) / 1000000 # 63 mb
#' lsoa2011_simple = stplanr::mapshape(lsoa2011, percent = 20)
#' object.size(lsoa2011_simple) / 1e6 # 40 mb
#' plot(lsoa2011$geometry[1:3])
#' plot(lsoa2011_simple$geometry[1:3], add = TRUE)
#' devtools::use_data(lsoa2011_simple, overwrite = TRUE)
#' }
NULL
#' lad boundaries - 2011
#'
#' @name lad2016_simple
#' @examples \dontrun{
#' u = "https://census.edina.ac.uk/ukborders/easy_download/prebuilt/shape/England_lad_2011_gen_clipped.zip"
#' lad2011_simple = duraz(u)
#' object.size(lad2016_simple) / 1000000 # 1 mb
#' plot(lad2016_simple)
#' devtools::use_data(lad2016_simple)
#' }
NULL
#' lad boundaries
#'
#' @name lad2016_simple
#' @examples \dontrun{
#' # See http://geoportal1-ons.opendata.arcgis.com/
#' u = "http://esriuktechnicalsupportopendata-techsupportuk.opendata.arcgis.com/datasets/686603e943f948acaa13fb5d2b0f1275_4.zip"
#' lad2016_simple = duraz(u)
#' object.size(lad2016_simple) / 1000000 # 1 mb
#' plot(lad2016_simple)
#' devtools::use_data(lad2016_simple)
#' }
NULL
#' Local authority 2018 boundaries
#'
#' @name lad2018
#' @examples \dontrun{
#' u = "http://esriuktechnicalsupportopendata-techsupportuk.opendata.arcgis.com/datasets/3dc07a60f46b4e01ab0ec8ba71c7a879_1.zip"
#' lad2018 = duraz(u)
#' unzip("zipped_shapefile.zip")
#' lad2018 = sf::st_read("Local_Administrative_Units_Level_1_January_2018_Full_Extent_Boundaries_in_United_Kingdom.shp")
#' lad2018 = stplanr::mapshape(lad2018, percent = 5)
#' object.size(lad2018) / 1000000 # 1 mb
#' mapview::mapview(lad2018)
#' devtools::use_data(lad2018)
#' }
NULL
#' Enumeration Districts 1981
#'
#' Saved for Leeds due to size constraints
#'
#' @name ed1981
#' @examples \dontrun{
#' u = "https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebuilt/shape/England_ed_1981.zip"
#' ed1981 = duraz(u)
#' ed1981 = sf::st_transform(ed1981, 4326)
#' object.size(ed1981) / 1000000 # 143 mb
#' object.size(ed1981_simple) / 1e6 # mb
#' ed_cents = st_centroid(ed1981_simple)
#' ed_cents_lds = ed_cents[leeds, ]
#' ed1981 = ed1981[ed_cents_lds, ]
#' mapview::mapview(ed1981)
#' devtools::use_data(ed1981)
#' }
NULL
#' Leeds outline
#' @name leeds
#' @examples \dontrun{
#' leeds = lad2018[lad2018$lau118nm == "Leeds", ]
#' devtools::use_data(leeds)
#' }
NULL
#' Travel to work areas
#'
#' See [ons.gov.uk](https://www.ons.gov.uk/employmentandlabourmarket/peopleinwork/employmentandemployeetypes/articles/traveltoworkareaanalysisingreatbritain/2016) for details.
#'
#' @name ttwa
#' @examples \dontrun{
#' u = "https://opendata.arcgis.com/datasets/d3062ec5f03b49a7be631d71586cac8c_4.zip?outSR=%7B%22wkid%22%3A27700%2C%22latestWkid%22%3A27700%7D"
#' ttwa_simple = duraz(u)
#' ttwa_simple = st_transform(ttwa_simple, 4326)
#' mapview::mapview(ttwa_simple)
#' devtools::use_data(ttwa_simple)
#' }
NULL
#' 2011 census hierarchical geographies
#' @name census11_codes
#' @examples \dontrun{
#' # Get all OA codes within the City of London
#' ladcode = "E09000001" # City of London
#' oacodes = getsubgeographies(ladcode, "OA11")
#' # Get the OA polygons and draw them
#' sdf = getspatialdata(oacodes, "Boundaries", "GeneralisedClipped")
#' plot(sdf$geometry)
#' }
NULL
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.