cycle_hire | R Documentation |
Points representing cycle hire points accross London.
cycle_hire
FORMAT:
id: Id of the hire point
name: Name of the point
area: Area they are in
nbikes: The number of bikes currently parked there
nempty: The number of empty places
geometry: sfc_POINT
if (requireNamespace("sf", quietly = TRUE)) {
library(sf)
data(cycle_hire)
# or
cycle_hire <- st_read(system.file("shapes/cycle_hire.geojson", package="spData"))
plot(cycle_hire)
}
## Not run:
# Download the data
cycle_hire = readr::read_csv("http://cyclehireapp.com/cyclehirelive/cyclehire.csv",
col_names = FALSE, skip = TRUE)
cycle_hire = cycle_hire[c_names]
c_names = c("id", "name", "area", "lat", "lon", "nbikes", "nempty")
cycle_hire = st_sf(cycle_hire, st_multipoint(c_names[c("lon", "lat")]))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.