Duesseldorf_Karneval.R

library(tidyverse)
library(hystReet)

## Get locations 

locations <- get_hystreet_locations()

Duesseldorf <- locations %>% 
  filter(city == "Düsseldorf")

data <- lapply(Duesseldorf$id, function(x){
  temp <- get_hystreet_station_data(
    hystreetId = x, 
    query = list(from = "01-01-2019", to = "07-03-2019", resolution = "day"))
  
  
  name <- temp$name
  temp <- temp$measurements
  temp$name = name
  
  
  return(temp)
  }) %>% map_df(~.x)


## Prepare data

data %<>% 
  mutate(weekday = weekdays(timestamp)) %>% 
  filter(weekday %in% c("Thursday"))


## Plot

ggplot(data) +
  geom_bar(aes(x = timestamp, y = pedestrians_count, fill = name), stat = "identity", position = "dodge") +
  labs(x = "Date",
       y = "Pedestrians",
       fill = "Street")