weather2 <- ggplot(air.long, aes(x = Day, y = value, colour = variable)) +
               geom_point() + # this part will put all the day measurements on one plot
               facet_wrap(~ Month, nrow = 1) # add this part and again, the observations are split by month
weather2