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

air.wide <- spread(air.long , variable, value)
head(air.wide)