对 Excel 等列中的某些特定行求和

Question

我有一个（对我来说）艰巨的任务要解决。 我正在处理降水数据，并希望建立一些 SumS 用于评估不同时间尺度的大雨指数。

我在 Excel 中有一个版本，但我想自动化这个过程。 这是 Excel 正在做的事情：

（这里第一次发帖，我真的不知道如何在这里实现文本中的 Excel 视觉......这就是为什么链接到 png）

最后我的目标是这个。 程序应读取导入 csv，其中仅包含 2 列（日期和降水，单位为 mm）。 然后它应该为不同的时间尺度添加列（如图像中）。在图像中，您可以看到标记单元格的 excel“代码”。它将沉淀柱中的 5 个细胞相加。我宁愿倒着做，所以它应该是 =SUM(B6:B10) 如果 10 分钟的列应该是 B1:B10 等等.... 最后我想从新的代表 5、10、15、20 或 60 分钟内的最大降水量的列。

问题： 我没有找到一种方法来获取降水列中的行总和。总是有一些尺寸错误或其他错误。例如我试过这个：

data <- <- read.csv(file = file.choose(),sep=';')
data$d5 <-0
data$d10 <-0
for (i in 2:nrow(data)) {
  n <- rowSums(Daata$precip.in.mm[i-1:i,])
  data$D5[i] <- n

在这种情况下，他正在考虑维度。我没有看到问题...

如果有人可以帮我解决这个问题，那就太棒了。我猜……很简单（不适合我）的任务。

感谢您的阅读和帮助！

Answer 1

你想要一个所谓的窗口函数。这些滚动一个向量并在这些向量上聚合值。有几个包可以处理这个问题，比如zoo 和rollapply。

我已经编写了一个基本的 R 函数来处理这个问题：

window_roll_sum <- function(sorted_input, # Sorted input Vector
                            n=5 # Window size
                            ){
  input_length <- length(sorted_input)
  res <- sapply(1:input_length, #from 1 to input length
                function(x){ # define current pos as x
                  sum(sorted_input[ #sum up the input from x
                    x:(x+min( #to x+window
                        n,
                        input_length-x
                        ) # if remaining vector to small for window
                       # sum up two last value (input length)
                      )
                  ])# end sum
                }# end function
          )
  return(res)
}

现在您可以将此功能应用于您的数据。

data$d5 <- window_roll_sum(data$precip.in.mm, n=5)

重要提示：此函数假定向量按时间排序且测量之间的时间距离相同，因为它盲目地总结了向量的以下n 测量。