meteo2 <- ggplot(air.long, aes(x = Day, y = value, colour = variable)) +
    geom_point() + 
    facet_wrap(~Month, nrow = 1)
meteo2