如何在R中逐行应用公式：基于前一行计算当前行值

首先，先把你的初始数据构造代码整理得更清晰些：

# 构建初始DataFrame
df <- data.frame(
  a = 1:10,
  b = 21:30,
  c = 5,  # 初始仅第1行值为5，后续会更新
  d = 10  # 初始仅第1行值为10，后续会更新
)

针对你明确的列c递推规则（第1行固定为5，从第2行起为前一行c - 前一行b），我给你两种实用的实现方式：

方法1：基础R循环（直观易懂，适合新手） #

循环是最容易理解的逐行计算方式，直接遍历每一行完成递推：

# 从第2行开始遍历计算c列
for (i in 2:nrow(df)) {
  df$c[i] <- df$c[i-1] - df$b[i-1]
}

运行后查看前几行结果，就能看到递推效果：

head(df)
#   a  b   c  d
# 1 1 21   5 10
# 2 2 22 -16 10
# 3 3 23 -38 10
# ...后续行按规则继续计算

方法2：tidyverse的accumulate函数（简洁高效） #

如果你习惯用tidyverse工具链，purrr::accumulate可以优雅处理这类递推场景，避免显式循环：

library(tidyverse)

# 生成c列的递推序列：初始值5，后续每个值是前结果减去对应行的b（取b的前9行，对应第2到10行的计算）
c_values <- accumulate(df$b[-nrow(df)], ~ .x - .y, .init = 5)

# 将结果赋值回df的c列
df$c <- c_values

这个写法代码更简洁，大数据量下的执行效率也更可观。

关于列d的扩展实现 #

你提到列d第1行固定为10，但后续逻辑没写完。只要是类似依赖前一行自身值+其他列值的递推逻辑，都可以套用上面的方法。比如假设d的规则是「从第2行起，值为前一行d + 前一行a」，实现方式如下：

循环版： #

for (i in 2:nrow(df)) {
  df$d[i] <- df$d[i-1] + df$a[i-1]
}

tidyverse版： #

d_values <- accumulate(df$a[-nrow(df)], ~ .x + .y, .init = 10)
df$d <- d_values

这类递推式逐行计算的核心，就是利用「前一行的目标列值」结合「其他列的历史/当前值」生成新值，循环适合理解逻辑，accumulate适合简洁实现，你可以根据自己的习惯选择。

内容的提问来源于stack exchange，提问作者NiRa