比较低效的方法：
x <- numeric(0)
for (i in 4:ncol(tempmin)) {
     x[i-3] <- round(mean(tempmin[,i], na.rm = TRUE), 1)
}

稍微改进点的方法：
apply(tempmin[,-1:-3], 2, function(x) round(mean(x, na.rm = TRUE), 1))       ——当tempmin是matrix时
或者
sapply(tempmin[-1:-3],  function(x) round(mean(x, na.rm = TRUE), 1))     ——当tempmin是data.frame时

真正应该用的方法：
round(colMeans(temp[,-1:-3], na.rm = TRUE), 1)  

x <- numeric(ncol(tempmin)-3)
for(i in 4:ncol(tempmin)){
  x[i-3] <- round(mean(tempmin[,i],na.rm=TRUE),1)
}

嗯嗯嗯！！谢谢啦