กราฟรายวัน

library(dplyr)
library(ggplot2)

# Compute daily_may
daily_may <- bike %>%
  filter(___) %>%
  group_by(___) %>%
  summarise(n = ___)

# Plot the result
ggplot(daily_may, aes(___, ___, color = ___)) +
  ___ +
  ___