如何创建一个函数或循环，该函数或循环可以从每行的另一列上方总结一定量的行

Question

我正在尝试计算海洋中的学位加热周，并且想知道如何创建一个循环或其他一些可以计算此值并将其放入每行的新列（DHW）中的方法。 DHW是每天计算的值。

它是在另一列值（热点）的12周滚动窗口（84天）上计算出来的。 DHW是这84行的总和（在其自己的行中值（日）以及上面的83个），然后除以7

下面是我的数据框架的一个示例，我只是使用热点列来计算DHW

Answer 1

如果我理解正确地

修复了width = 3 to width = 84

df <-
  data.frame(DAYS = seq(as.Date("2022-01-01"), length.out = 10,  by = "1 days"),
             HS = seq(10))

library(dplyr)

df %>%
  mutate(DWH = zoo::rollapply(
    HS,
    width = 3,
    FUN = function(x) sum(x) / 7,
    fill = NA,
    align = "right"
  ))
#>          DAYS HS       DWH
#> 1  2022-01-01  1        NA
#> 2  2022-01-02  2        NA
#> 3  2022-01-03  3 0.8571429
#> 4  2022-01-04  4 1.2857143
#> 5  2022-01-05  5 1.7142857
#> 6  2022-01-06  6 2.1428571
#> 7  2022-01-07  7 2.5714286
#> 8  2022-01-08  8 3.0000000
#> 9  2022-01-09  9 3.4285714
#> 10 2022-01-10 10 3.8571429

^{在2022-07-04创建的}