Extract daily trip counts for all stations
bike_daily_trips(bikedb, city, station, member, birth_year, gender, standardise = FALSE)
| bikedb | A string containing the path to the SQLite3 database.
If no directory specified, it is presumed to be in |
|---|---|
| city | City for which trips are to be counted - mandatory if database contains data for more than one city |
| station | Optional argument specifying bike station for which trips are to be counted |
| member | If given, extract only trips by registered members
( |
| birth_year | If given, extract only trips by registered members whose declared birth years equal or lie within the specified value or values. |
| gender | If given, extract only records for trips by registered
users declaring the specified genders ( |
| standardise | If TRUE, daily trip counts are standardised to the relative numbers of bike stations in operation for each day, so daily trip counts are increased during (generally early) periods with relatively fewer stations, and decreased during (generally later) periods with more stations. |
A data.frame containing daily dates and total numbers of trips
bike_write_test_data () # by default in tempdir () # dl_bikedata (city = 'la', data_dir = '.') # or download some real data! bikedb <- file.path (tempdir (), 'testdb') store_bikedata (data_dir = tempdir (), bikedb = bikedb)#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/201612-citibike-tripdata.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/201604-hubway-tripdata.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/Divvy_Trips_sample.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/2017-Q1-Trips-History-Data.csv#>#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/la_metro_gbfs_trips_Q1_2017.csv#>#>#> reading file 1/1: /tmp/Rtmp0qGggG/01aJourneyDataExtract10Jan16-23Jan16.csv#>#>#>#> [1] 1198bike_daily_trips (bikedb = 'testdb', city = 'ny')#> # A tibble: 1 x 2 #> date numtrips #> <date> <int> #> 1 2016-12-01 200bike_daily_trips (bikedb = 'testdb', city = 'ny', member = TRUE)#> # A tibble: 1 x 2 #> date numtrips #> <date> <int> #> 1 2016-12-01 191bike_daily_trips (bikedb = 'testdb', city = 'ny', gender = 'f')#> # A tibble: 1 x 2 #> date numtrips #> <date> <int> #> 1 2016-12-01 22bike_daily_trips (bikedb = 'testdb', city = 'ny', station = '173', gender = 1)#> # A tibble: 1 x 2 #> date numtrips #> <date> <int> #> 1 2016-12-01 1#> [1] 6bike_rm_db (bikedb)#> [1] TRUE# don't forget to remove real data! # file.remove (list.files ('.', pattern = '.zip'))