如何将父tibble的参数值传递至两层嵌套的子tibble中操作？

问题分析 #

核心问题是作用域隔离：最内层的map函数无法访问父tibble（shocks_small）中的mu1值，因为modify_at按列处理，无法将每行的参数值传递到嵌套层级中。

解决方案：按行处理绑定参数作用域 #

要让内层函数访问到当前行的mu1，需切换到行级处理，确保每个嵌套层级能获取对应行的参数值。以下是两种可行实现：

方法1：使用rowwise() + across() #

利用rowwise()将处理上下文限定在单行内，让mu1直接被内层函数访问：

shocks_small %>%
  rowwise() %>%
  mutate(
    across(
      starts_with("v1_v2_T"),
      ~ map(.x, \(sim_tbl) {
        sim_tbl %>%
          mutate(v1_v2 = map(v1_v2, \(y) {
            y %>% mutate(e1 = mu1 + lag(v1, 1))
          }))
      })
    )
  ) %>%
  ungroup()

工作原理：

1. rowwise()：切换为行级处理模式，每一行单独处理。
2. across(starts_with("v1_v2_T"))：遍历所有前缀为v1_v2_T的列表列。
3. 内层map：处理列表列中的每个模拟表（sim_tbl），此时mu1是当前行的参数值，处于函数作用域内。
4. 最内层map：修改每个v1_v2子表，添加e1列时直接使用当前行的mu1。

方法2：使用pmap()显式传递参数 #

若偏好函数式编程风格，可用pmap()将每行的参数和列表列作为参数传递：

shocks_small %>%
  pmap_dfr(function(mu1, ...) {
    # 获取当前行的所有列表列
    list_cols <- list(...)
    
    # 处理每个列表列
    processed_cols <- map(list_cols, \(col) {
      map(col, \(sim_tbl) {
        sim_tbl %>%
          mutate(v1_v2 = map(v1_v2, \(y) {
            y %>% mutate(e1 = mu1 + lag(v1, 1))
          }))
      })
    })
    
    # 重组为tibble返回
    tibble(mu1 = mu1, !!!processed_cols)
  })

工作原理：

1. pmap_dfr()：遍历每行，将行内所有列作为参数传递给自定义函数。
2. 函数接收mu1和其他列表列（通过...），显式将mu1传递到内层map函数中。
3. !!!processed_cols：将处理后的列表列重新组合为tibble的列。

原代码失败原因 #

原代码使用modify_at()是按列处理的，传入的z是整个列表列（包含所有行的元素），内层map无法关联到对应行的mu1值，导致作用域中找不到mu1变量。

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