I want to reshape the data airquality. I want "Month" on the row and all other as columns. I made the columns unique by adding the month and day number. It works to transform but nearly all the values get NA. Does anyone know why this is and how to fix it?

```
airquality
library(reshape2)
aql <- melt(airquality, id.vars=c("Month", "Day"))
aql$variable <- paste0(airquality$Month, airquality$Day, aql$variable)
aql <- aql[,-2]
aqw <- dcast(aql, Month~variable

```