air.long <- gather(airquality, variable, value, -Month, -Day)
# Notez que la syntaxe ici indique qu'on veut "ramasser" toutes les colonnes sauf "Month" et "Day"
head(air.long)
air.wide <- spread(air.long , variable, value)
head(air.wide)