R中的年平均温度函数

Question

我需要写一个函数来计算年平均气温。我有从 1880 年到 2017 年每个月的温度数据，并且需要一个向量来显示 138 个平均温度中的每一个。这是我尝试过的，我知道这不是很多，也不是很好，但我对此很陌生，所以请耐心等待：

average <- function(x) {
  if(any(is.na(x)))
    stop("x is missing values")
  c(mean(x[,1:138]))
}
sapply(gistemp.new[2:13],average)

gistemp.new 是我为数据框命名的名称，第一列就是年份。是这样的：

Year   Jan   Feb   Mar   Apr   May   Jun
1   1880 -0.29 -0.18 -0.11 -0.19 -0.11 -0.23
2   1881 -0.15 -0.17  0.04  0.04  0.02 -0.20
3   1882  0.15  0.15  0.04 -0.18 -0.16 -0.26
4   1883 -0.31 -0.39 -0.13 -0.17 -0.20 -0.12

Answer 1

df1 <- read.table(text="Year   Jan   Feb   Mar   Apr   May   Jun
1   1880 -0.29 -0.18 -0.11 -0.19 -0.11 -0.23
2   1881 -0.15 -0.17  0.04  0.04  0.02 -0.20
3   1882  0.15  0.15  0.04 -0.18 -0.16 -0.26
4   1883 -0.31 -0.39 -0.13 -0.17 -0.20 -0.12",h=T,strin=F)

rowMeans(df1[-1])
#           1           2           3           4 
# -0.18500000 -0.07000000 -0.04333333 -0.22000000