Rename, Reorder

Change single column name
colnames(Data)[1] <- "Date"

Rename and reorder all columns
colnames(Data) = c("Date", "Day01", "Day02", "Day03", "Day04", "Day05", "Day06","Day07", "Day08", "Day09", "Day10", "Day11", "Day12", "Day13",  "Day14", "Day15", "Day16", "Day17", "Day18", "Day19", "Day20", "Day21",  "Day22", "Day23", "Day24", "Day25", "Day26", "Day27", "Day28", "Day29",  "Day30", "Day31", "Station") Data= Data[,c(33, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)]

Sort Dataframe by Date
Data = arrange(Data, Data$Date)

Move last column to first
Temp = Temp[,c(ncol(Temp),1:(ncol(Temp)-1))]

Round Dataframe
Data[,3:ncol(Data)] = round(Data[,3:ncol(Data)], digits = 2)

Combine Dataframes
Air_Climate = cbind(Air_Select, Climate_Select)