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