weather2 <- ggplot(air.long, aes(x=Day, y=value, colour=variable))+ geom_point()
#this plot will put all the day measurements on one plot

weather2 <- weather2 + facet_wrap(~Month, nrow=1) #add this part and again, the observations are split by month