R语言递归函数：如何将每次调用结果保存到向量中？

你的问题出在函数内部的output是局部变量，每次递归调用都会创建新的局部output，全局的output根本没被修改。下面提供几种可行的解决方法：

方法1：递归返回结果向量（推荐，无副作用） #

让递归函数每次返回拼接好的向量，最终得到完整结果：

recursive <- function(x) {
  current_val <- x + 0.1
  if (x < 1) {
    # 将当前值与下一层递归的结果拼接
    c(current_val, recursive(x + 0.1))
  } else {
    # 终止条件：返回最后一个值
    current_val
  }
}

# 调用函数并保存结果
output <- recursive(0)
print(output)

运行后output就是你需要的完整向量，这种方式符合函数式编程风格，没有全局变量副作用，逻辑清晰。

方法2：修改全局变量（简单但不推荐） #

用<<-操作符直接修改全局环境中的output，但这种方式会污染全局环境，复杂场景容易出问题：

output <- c()
recursive <- function(x) {
  current_val <- x + 0.1
  if (x < 1) {
    # 修改全局的output变量
    output <<- append(output, current_val)
    recursive(x + 0.1)
  } else {
    output <<- append(output, current_val)
  }
}

recursive(0)
print(output)

方法3：用闭包保存状态（兼顾无副作用和状态） #

通过闭包创建一个私有环境保存向量，避免污染全局空间：

make_recursive <- function() {
  # 私有变量，仅内部函数可访问
  output <- c()
  function(x) {
    current_val <- x + 0.1
    if (x < 1) {
      output <<- append(output, current_val)
      # Recall用于调用当前函数自身
      Recall(x + 0.1)
    } else {
      output <<- append(output, current_val)
      # 递归结束后返回完整向量
      output
    }
  }
}

# 创建递归函数实例
recursive <- make_recursive()
# 调用并获取结果
output <- recursive(0)
print(output)

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