weather <- weather + facet_wrap(~ variable, nrow = 2, scales = "free")
weather