air.long <- gather(airquality, variable, value, -Month, -Day)
air.wide <- spread(air.long , variable, value)