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