尝试将涉及滞后的计算添加到新的数据帧列中

Question

我试图做一些非常简单的事情，但我无法解决如何做到这一点。

基本上这个：

A和B是数据框中的列。

如果我使用：

df$B <- lag(df$B,1) + df$A 

显然会导致NA，因为在第1行之前没有B的延迟。

Answer 1

我们可以使用accumulate

library(tidyverse)
df %>% 
     mutate(B = accumulate(A, `+`))

或者它可能只是cumsum

df %>%
    mutate(B = cumsum(A))

数据

df <- data.frame(A= c(10, 9, 3, 1, 7))