R语言：如何通过内部函数为外部函数的data frame添加行？

错误原因 #

1. 第一个错误：fun_inner定义在fun_outer外部，其作用域无法覆盖fun_outer的局部变量df。使用<<-时，R会向上查找df直到全局环境，此时全局环境无df，导致rbind操作失败。
2. 第二个错误：同样因fun_inner在外部作用域，df <<-试图修改全局环境的df（若全局df被锁定则报错），且无法影响fun_outer内的局部df，最终返回的仍是初始空数据框。

正确实现方式 #

方式1：内部函数定义在外部函数内+返回值更新（推荐，无副作用）

将fun_inner放在fun_outer内部，使其能访问外部函数环境，同时通过返回值更新数据框，避免<<-的副作用：

fun_outer <- function() {
  df <- data.frame()
  
  # 内部函数定义在外部函数内，可访问外部环境变量
  fun_inner <- function(current_df) {
    tmp <- data.frame(x = 1, y = 2)
    rbind(current_df, tmp)
  }
  
  # 调用内部函数并更新df
  df <- fun_inner(df)
  return(df)
}

# 执行测试
fun_outer()

方式2：内部函数定义在外部函数内+<<-（不推荐，有副作用）

若一定要用<<-，需确保内部函数在外部函数内定义，这样<<-会找到外部函数的局部df：

fun_outer <- function() {
  df <- data.frame()
  
  fun_inner <- function() {
    tmp <- data.frame(x = 1, y = 2)
    df <<- rbind(df, tmp)
  }
  
  fun_inner()
  return(df)
}

fun_outer()

针对迭代追加需求的优化方案 #

若要在函数内通过迭代批量追加数据，推荐用函数式编程思路，避免循环中反复rbind的低效问题，比如用purrr包的map_dfr（自动按行合并结果）：

library(purrr)

fun_A <- function(iter_times) {
  # 定义生成单条数据的函数
  generate_row <- function(i) {
    data.frame(x = i, y = i * 2)
  }
  
  # 迭代生成并合并数据框
  map_dfr(1:iter_times, generate_row)
}

# 生成3条数据的示例
fun_A(3)

若不用purrr，也可以用for循环，但需注意效率（小数据量可用）：

fun_A <- function(iter_times) {
  df <- data.frame(x = numeric(), y = numeric())
  generate_row <- function(i) {
    data.frame(x = i, y = i * 2)
  }
  
  for (i in 1:iter_times) {
    df <- rbind(df, generate_row(i))
  }
  
  return(df)
}

fun_A(3)

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