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