R函数使用相同和不同列中的前行？

Question

从虹膜数据集开始：

我想创建一个新列 B，其中第 1 行的值是 Sepal.Length 的值，第 2 行的值：n = B 从上一行 +(当前行的 Sepal.length - Sepal .length 上一行）。 所以行 B1 = 5.1, B2=5.1+(4.9-5.1 ...

谢谢！

编辑：上述模式只是部分的：公式应该只适用于（当前行的 Sepal.length - 前一行的 Sepal.length）。根据总督的回答，以下代码适用于编辑后的问题：

MyDataSet<-data.frame(time=c(1,2,3,1,2,3)) 
B <- rep(NA,(nrow(MyDataSet))) 
B[1] <- MyDataSet$time[1] 

for (i in 2:nrow(MyDataSet)) { 
if (0<MyDataSet$time[i]-MyDataSet$time[i-1])
{B[i] <- B[i-1]+(MyDataSet$time[i]-MyDataSet$time[i-1]) }  
 else {B[i]<-B[i-1]+MyDataSet$time[i]} 
} 

MyDataSet$B <- B

Answer 1

这应该可行：

data(iris)

B <- rep(NA, (nrow(iris)))
B[1] <- iris$Sepal.Length[1]
for ( i in 2:nrow(iris)){
  B[i] <- B[i-1]+(iris$Sepal.Length[i]-iris$Sepal.Length[i-1])  
}

@Lina Bird 你说得对，我忘了补充

iris$B <- B

请注意，使用包 dplyr 和函数 mutate 可能有一种更优雅/更有效的方法。