r - 将行值添加到 R 中的上一行值

Question

我有一个非常基本的问题，因为我是 R 的新手。我想知道如何将列中的值添加到先前的值并在包含 1000 多个值的列中重复？请注意，我不需要累积和，因此 cumsum 函数没有用。假设我的列称为 WD，我想将 WD1 添加到 WD2，将 WD2 添加到 WD3，将 WD3 添加到 WD4 等，然后将这些总和作为新列输出。有简单的方法吗？非常感谢。

一个可重现的例子:

set.seed(111)
df1 <- data.frame(WD=sample(10))

#result
df1
   WD new
1   6   6
2   7  13
3   3  10
4   4   7
5   8  12
6  10  18
7   1  11
8   2   3
9   9  11
10  5  14

Answer 1

我们将当前行 (WD[-nrow(df1)]) 与下一行 (WD[-1L]) 相加，并与第一个元素连接起来创建列。

df1$newColumn <- with(df1, c(WD[1],WD[-1]+WD[-nrow(df1)]))