ผลของการเป็นสมาชิกและวันในสัปดาห์

library(dplyr)
library(ggplot2)

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

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