วิเคราะห์รูปแบบการใช้งานตามช่วงเวลาของวัน

library(dplyr)
library(ggplot2)

# Compute week_hod
week_hod <- bike %>%
  ___ %>%
  ___

# Plot the result
ggplot(week_hod, aes(___, ___, color = ___)) +
  ___ +
  facet_grid(~ ___) +
  scale_y_sqrt()