Robinlovelace
commented
5 years ago Hi @iDemirsoy good question. The book uses the newer sf package but you can go from your data to sf objects with the function st::st_as_sf(). As a starting point I've created a reproducible example (reprex) that I think represents your data:
# setup -------------------------------------------------------------------
install.packages("remotes")
#> Installing package into '/home/robin/R/x86_64-pc-linux-gnu-library/3.6'
#> (as 'lib' is unspecified)
remotes::install_cran("pct") # for zones data
#> Skipping install of 'pct' from a cran remote, the SHA1 (0.2.7) has not changed since last install.
#> Use `force = TRUE` to force installation
remotes::install_cran("stats19") # for crash data
#> Skipping install of 'stats19' from a cran remote, the SHA1 (1.0.0) has not changed since last install.
#> Use `force = TRUE` to force installation
remotes::install_github("itsleeds/geofabric") # for roads data
#> Skipping install of 'geofabric' from a github remote, the SHA1 (7acec3a1) has not changed since last install.
#> Use `force = TRUE` to force installation
library(geofabric)
library(stats19)
#> Data provided under OGL v3.0. Cite the source and link to:
#> www.nationalarchives.gov.uk/doc/open-government-licence/version/3/
# get test data -----------------------------------------------------------
osm_data = get_geofabric("isle of wight")
#> No exact matching geofabric zone. Best match is Isle of Wight (7.2 MB)
#> Downloading http://download.geofabrik.de/europe/great-britain/england/isle-of-wight-latest.osm.pbf to
#> /tmp/RtmpX5DqZl/isle of wight.osm.pbf
#> Old attributes: attributes=name,highway,waterway,aerialway,barrier,man_made
#> New attributes: attributes=name,highway,waterway,aerialway,barrier,man_made,maxspeed,oneway,building,surface,landuse,natural,start_date,wall,service,lanes,layer,tracktype,bridge,foot,bicycle,lit,railway,footway
#> Using ini file that can can be edited with file.edit(/tmp/RtmpX5DqZl/ini_new.ini)
roads_sf = osm_data[!is.na(osm_data$highway) & osm_data$highway == "primary", ]
roads = as(roads_sf, "Spatial")
zones_sf = pct::get_pct_zones("isle-of-wight")
zones = as(zones_sf, "Spatial")
crashes_df = get_stats19(year = 2017, type = "ac")
#> Files identified: dftRoadSafetyData_Accidents_2017.zip
#> http://data.dft.gov.uk.s3.amazonaws.com/road-accidents-safety-data/dftRoadSafetyData_Accidents_2017.zip
#> Attempt downloading from:
#> Data saved at /tmp/RtmpX5DqZl/dftRoadSafetyData_Accidents_2017/Acc.csv
#> Reading in:
#> /tmp/RtmpX5DqZl/dftRoadSafetyData_Accidents_2017/Acc.csv
crashes_sf = format_sf(crashes_df, lonlat = TRUE)
#> 29 rows removed with no coordinates
crashes_in_zone = crashes_sf[zones_sf, ]
#> although coordinates are longitude/latitude, st_intersects assumes that they are planar
#> although coordinates are longitude/latitude, st_intersects assumes that they are planar
crashes = as(crashes_in_zone, "Spatial")
cols = colorspace::sequential_hcl(n = 4)
zones$cols = cut(zones$all, quantile(zones$all), labels = cols)
sp::plot(zones, col = cols)
sp::plot(roads, add = TRUE, lwd = 3)
sp::plot(crashes, col = "red", add = TRUE)
Created on 2019-09-30 by the reprex package (v0.3.0)
agila5
iDemirsoy
Hi Dr Lovelace,
I have a SpatialPolygonsDataFrame, SpatialPointsDataFrame and SpatialLinesDataFrame for a county in the USA. I uploaded 4 plots, one for each of them and one for plot() lines() points() as we can see CRS these are from same area. I have 2 questions.
1- Is there a way to combine them ? maybe not 3 of them. I would be okay to combine combine pointsdataframe with any of them to work on.
2- as we can see from allT plot, we can plot them, is there a way to count and see which points inside any randomly chosen small polygon?
Thank you
class : SpatialLinesDataFrame features : 7162 extent : -84.70612, -83.98041, 30.27399, 30.68428 (xmin, xmax, ymin, ymax) crs : +proj=longlat +datum=WGS84 +nodefs +ellps=WGS84 +towgs84=0,0,0 variables : 52 names : OBJECTID, FNODE, TNODE, LPOLY, RPOLY, LENGTH, LCSTSEG, LCSTSEG_ID, SOURCE, R_F_ADD, R_T_ADD, L_F_ADD, L_T_ADD, PREFIX, NAME, ... min values : 100, 0, 0, 0, 0, 4.42966247, 0, 1, 2012MERRICK, 0, 0, 0, 0, E, 4TH, ... max values : 9999, 0, 9992, 0, 0, 30399.81457977, 9983, 9978, TSP110037, 9981, 9999, 9980, 9999, WB, ZILLAH, ...