The package README shows how the PCT can be used to get and reproduce some of the datasets from the PCT package, based on an example in the city of Leeds. This vignette shows how the package can be used to create estimates of cycling potential in other cities.
eval=TRUE to run this code when knitting:
::opts_chunk$set(eval = FALSE)knitr
Let’s start by loading the package:
# devtools::install_github("ATFutures/geoplumber") # require("geojsonsf") library(pct)
The input data for this vignetted was created using code in the pctSantiago project. It looks like this, in terms of the flow data:
In terms of the zone data, they look like this:
Note that we have cycling estimates for each desire line. If this data is not known, current cycling levels can be approximated for all desire lines as the city-wide average, e.g. around 5% for Santiago.
The origin-destination data can be converted to geographic desire lines using the
od2line as follows:
stplanr::od2line(flow = santiago_od, zones = santiago_zones)desire_lines =
The resulting lines can then be plotted on top of zone data as follows:
plot(santiago_zones$geometry) plot(santiago_lines["pcycle"], lwd = santiago_lines$n / 3, add = TRUE) # gj = geojsonsf::sf_geojson(santiago_lines) # path = file.path(tempdir(), "dl.geojson") # write(gj, path) # html_map = geoplumber::gp_map(path, browse_map = FALSE) # htmltools::includeHTML(html_map)
The previous map suggests that the data is reliable: we have created a good approximation of the travel pattern in central Santiago.
To estimate cycling potential, we need estimates of distance and hilliness. The area under investigation is relatively flat so we can make the simplifying assumption that hilliness is 0% for all lines (normally we would get this information from a routing service):
$hilliness = 0desire_lines
And what about the distance? We can calculated it as follows (note we converted this into a numeric object to prevent issues associated with the
$distance = as.numeric(sf::st_length(desire_lines))desire_lines
Now we have (very) crude estimates of distance and hilliness, we can estimate the cycling potential as follows:
$godutch_pcycle = uptake_pct_godutch(distance = desire_lines$distance, gradient = 0)desire_lines
Let’s take a look at the results, compared with the current levels of cycling, and compared with distance:
cor(x = desire_lines$pcycle, y = desire_lines$godutch_pcycle) plot(x = desire_lines$pcycle, y = desire_lines$godutch_pcycle) plot(x = desire_lines$distance, y = desire_lines$godutch_pcycle, ylim = c(0, 1))
As expected, there is a positive (albeit small) positive correlation between current and potential levels of cycling. The result shows clearly that distance decay kicks in just after 2km, but still at 8 km there is a 25% mode share, suggesting a major switch to cycling.
We can put the results on a map as follows:
library(leaflet) leaflet(width = "100%") %>% addTiles() %>% addPolylines(data = desire_lines, weight = desire_lines$pcycle * 5) leaflet(width = "100%") %>% addTiles() %>% addPolylines(data = desire_lines, weight = desire_lines$godutch_pcycle * 5)
The results show that there is substantial potential for increasing the levels of cycling in central Santiago, based on origin-destination data alone. However, to inform policy, more detailed estimates of cycling potential are needed, with results that go down to the level of individual streets. This involves routing.
There are many ways to do calculate a path on the street network. The main options are local routing, where the calculation is done based on data stored locally (on your computer) and routing services, where the data is done remotely (‘in the cloud’). Let’s use a remote routing service to convert the straight lines generated in the previous section into routes that could realistically be taken by people cycling (the next line does not run by default because it requires an API key saved as an environment variable, see the documentation of
route_cyclestreets() for details for details).
stplanr::line2route(desire_lines) santiago_routes_cs =# > 10 % out of 200 distances calculated # > 20 % out of 200 distances calculated # > 30 % out of 200 distances calculated # > 40 % out of 200 distances calculated # > 50 % out of 200 distances calculated # > 60 % out of 200 distances calculated # > 70 % out of 200 distances calculated # > 80 % out of 200 distances calculated # > 90 % out of 200 distances calculated # > 100 % out of 200 distances calculated # > Warning message: # > In value[[3L]](cond) : Fail for line number 32
Note that one of the routes failed. We can look at this route as follows, to try to understand what happened:
leaflet() %>% addTiles() %>% addPolylines(data = santiago_routes_cs[32, ])
The result shows that one end of the route connects to the Sendero Ciclistas, which the routing service may be unable to reach. At this stage there are 2 main options: 1) to omit the data point from the analysis, acknowledging that the data is incomplete; or 2) identify a nearby location where the service can route to. In this case we will take option 1. Before we remove the offending line 32 from the analysis, we will join the data from the desire lines back onto the results:
sf::st_sf( routes =cbind(sf::st_drop_geometry(santiago_routes_cs), ::st_drop_geometry(desire_lines)), sfgeometry = santiago_routes_cs$geometry )
$godutch_slc = round(routes$godutch_pcycle * routes$all) routes stplanr::overline2(routes, "godutch_slc") rnet =plot(rnet, lwd = rnet$godutch_slc / mean(rnet$godutch_slc)) # library(tmap) # tmap_mode("view") # tm_shape(rnet) + # tm_lines(lwd = "godutch_slc", scale = 9)
Clearly to do this in a production environment we would use a larger dataset, but the concepts would be the same. We would refine the method in multiple ways. The next basic step, however, would be to convert the straight desire lines into routes, to calculate more accurate distance and hilliness levels for each OD pair. Then we would be able to create a route network to help prioritise cycling across the city.
1_5 = route(l = desire_lines[1:5, ], route_fun = cyclestreets::journey) route_segments_::mapview(route_segments_1_5)mapview