purrr::map如何实现可引用已生成派生列的文本公式批量计算

当前已实现的无依赖派生列计算流程可稳定运行，核心步骤为：

• 预先编写仅引用原始数据列的派生列计算公式，逐行存入指定文本文件
• 固定随机种子构造4列随机测试数据框df，作为所有计算的基底
• 逐行读取文本中的公式内容，通过正则匹配提取等号左侧的目标列名，建立公式与派生列的映射关系
• 借助purrr::map遍历所有公式片段，依次通过parse()解析公式文本、在原始df对应的求值环境中执行eval()完成计算
• 将全部计算得到的派生列与原df横向绑定，最终生成包含4个原始列、4个派生列的8列tibble结果

现存的功能缺口：
当公式集合中新增同批次派生列的交叉引用规则（例如新增公式new_cols_i = new_cols_g - b，其中new_cols_g是同批次前置位置定义的派生列），程序会触发列名无法识别的报错。
报错的核心根源：当前求值流程的环境全程保持初始状态，仅绑定最初的原始df列，没有在每完成一个派生列计算后，将新生成的列同步注入求值环境，导致后续公式引用尚未加入环境的派生列时，出现对象找不到的运行错误。

核心调整思路：将原本的批量并行求值逻辑，替换为按公式书写顺序的串行逐列计算，每完成一个派生列的计算，立刻将该列同步更新到当前的求值环境中，从机制上保证后续公式可以正常引用所有前置计算完成的派生列。

具体调整动作：

• 替换原有的purrr::map批量遍历逻辑，改用带状态传递的串行遍历结构（可通过purrr::reduce实现，替代冗余的手动循环）
• 初始化计算阶段，先将原始df的所有列注入初始求值环境，作为计算的初始状态
• 按公式在文本中的书写顺序逐行处理：
  1. 拆分公式结构，提取等号左侧的目标派生列名、等号右侧的计算表达式
  2. 在已经包含所有前置已计算派生列的当前环境中，解析并执行右侧表达式的计算
  3. 将计算得到的结果值，以目标列名为键更新到当前的计算环境中
• 全部公式遍历完成后，将最终环境内的所有列重组为标准tibble结构输出

核心实现参考片段：

# 按书写顺序读取文本中的所有公式行
formula_list <- readLines("your_formula_file.txt")

# 初始化计算状态：载入原始数据框的所有列
initial_state <- as.list(df)

# 逐行串行计算，每步自动传递更新后的计算环境
final_calc_state <- purrr::reduce(
  formula_list,
  .init = initial_state,
  function(current_env, formula_line) {
    # 定位等号拆分公式结构
    eq_pos <- regexpr("=", formula_line, fixed = TRUE)
    col_name <- trimws(substr(formula_line, 1, eq_pos - 1))
    calc_expr <- trimws(substr(formula_line, eq_pos + 1, nchar(formula_line)))
    # 在当前已包含所有前置列的环境中求值
    result_val <- eval(parse(text = calc_expr), envir = list2env(current_env))
    # 将新计算的列加入环境状态
    current_env[[col_name]] <- result_val
    return(current_env)
  }
)

# 将最终计算状态转换为tibble输出
output_tibble <- tibble::as_tibble(final_calc_state)

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