Kauden 2023 kaupunkifillaridata saatavilla kokonaisuudessaan

Olen kerännyt dataa Helsingin kaupunkipyöräjärjestelmästä telinekohtaisista vapaiden pyörien määristä vuodesta 2017 alkaen ja julkaissut sitä avoimena datana. Tämän vuoden kausi päättyi toissapäivänä lokakuun lopussa ja data on päivitetty entisessä sijainnissa: https://data.markuskainu.fi/opendata/kaupunkipyorat/. Sivulla on esimerkkejä datan hyödyntämiseen.

Alla pikainen esimerkki miten hakea tieto siitä, milloin ja missä pyöriä oli eniten tarjolla. Vastaus on että Kaivopuistossa vapunpäivänä keo 15.15.

library(dplyr)
library(arrow)
# maksismimäärä
max_maara <- read_parquet("https://data.markuskainu.fi/opendata/kaupunkipyorat/datat/data_2023.parquet") %>% 
  # filtteroidaan häiriörivit
  filter(bikesAvailable < 50000) %>% 
  filter(bikesAvailable == max(bikesAvailable))
# telineiden tiedot
stations <- arrow::read_parquet("https://data.markuskainu.fi/opendata/kaupunkipyorat/metadatat/tellingit_2017-2023.parquet")
df <- max_maara %>% 
  left_join(stations %>% 
              filter(year == 2023) %>% 
              distinct(id,name,x,y), by = c("id" = "id"))
df %>% select(id,name,time,bikesAvailable,x,y)

# A tibble: 1 × 6
  id    name        time                bikesAvailable     x     y
  <chr> <chr>       <dttm>                       <dbl> <dbl> <dbl>
1 001   Kaivopuisto 2023-05-01 15:15:03            394  25.0  60.2