Avointa kaupunkipyörädataa - Open bikeshare data

open data
data
open data
avoin data
kaupunkifillari
cycling
pyöräily
R
dataviz
suomeksi
Tekijä
Julkaistu

7. maaliskuuta 2020

Hyvää avoimen datan päivää! Happy open data day!!

Olen kerännyt dataa Helsingin kaupunkipyöräjärjestelmän avoimen rajapinnan kautta viiden minuutin välein kaudet 2017, 2018 ja 2019. 50 miljoonaa riviä dataa dokumentoitu ja ladattavissa vapaasti osoitteesta: data.markuskainu.fi/opendata/kaupunkipyorat.

I have collected data from Helsinki bike sharing scheme open api at every five minutes since season 2017. 50 million rows of data is documented and available for download for any use at: data.markuskainu.fi/opendata/kaupunkipyorat.

Esimerkki R-kielellä / Example using R-language

Vapaiden pyörien määrät viikolla 22 vuosina 2018-2019 tellingeillä, jotka päättyvät sanaan metroasema

Number of available bikes on week 22 in 2018-2019 at stations ending with metroasema

[/kode]
library(dplyr)
tmpdir <- tempdir()
tmpfly <- paste0(tmpdir,"/tmpdata.csv.gz")
lista <- list()
download.file(url = "https://data.markuskainu.fi/opendata/kaupunkipyorat/data_2017.csv.gz", 
              destfile = tmpfly)
lista$dat17 <- read_csv2(tmpfly) %>% filter(week == 25)
download.file(url = "https://data.markuskainu.fi/opendata/kaupunkipyorat/data_2018.csv.gz", 
              destfile = tmpfly)
lista$dat18 <- read_csv2(tmpfly) %>% filter(week == 25)
download.file(url = "https://data.markuskainu.fi/opendata/kaupunkipyorat/data_2019.csv.gz", 
              destfile = tmpfly)
lista$dat19 <- read_csv2(tmpfly) %>% filter(week == 25)

dat <- do.call("bind_rows", lista)

stations <- read_csv2("https://data.markuskainu.fi/opendata/kaupunkipyorat/tellingit_2017-2020.csv.gz")

dat25 <- dat %>% 
  left_join(stations %>% 
              select(-time)) %>% 
  filter(grepl("metroasema$", name)) %>% 
  mutate(time = as.POSIXct(time))

ggplot(dat25, aes(x = time, y = bikesAvailable, color = name, group = name)) +
  geom_line() +
  facet_wrap(~year, scales = "free_x", ncol = 1) +
  theme_minimal(base_family = "PT Sans") +
  labs(title = "Vapaiden pyörien määrä viikolla 25 vuosina 2017, 2018 ja 2019",
       subtitle = "Mukana `Töölö`-alkuiset telineet",
       y = "Vapaiden pyörien määrä", x = NULL, color = "tellinki")
[1] "LC_CTYPE=fi_FI.UTF-8;LC_NUMERIC=C;LC_TIME=fi_FI.UTF-8;LC_COLLATE=fi_FI.UTF-8;LC_MONETARY=fi_FI.UTF-8;LC_MESSAGES=C.UTF-8;LC_PAPER=C.UTF-8;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=C.UTF-8;LC_IDENTIFICATION=C"

Uudelleenkäyttö

Viittaus

BibTeX-viittaus:
@online{kainu2020,
  author = {Kainu, Markus},
  title = {Avointa kaupunkipyörädataa - Open bikeshare data},
  date = {2020-03-07},
  url = {https://markuskainu.fi/posts/2020-03-07-open-data-day-fillaridata/},
  langid = {fi}
}
Viitatkaa tähän teokseen seuraavasti:
Kainu, Markus. 2020. “Avointa kaupunkipyörädataa - Open bikeshare data.” March 7, 2020. https://markuskainu.fi/posts/2020-03-07-open-data-day-fillaridata/.