temp <- read_csv("C:/Users/Dell/Desktop/R-Data climate/day 2/temp_datapak.csv")
View(temp)
temdta<-spread(temp, Month, Temperature)
colnames(temdta)
newdata<-temdta %>%
select (Year, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct",
"Nov", "Dec")