如何将R语言重复函数的迭代X、Y结果存入DataFrame？

要实现每次迭代保存X和Y值到DataFrame，你需要在循环过程中收集每一组数据，最后合并成完整的DataFrame。以下是两种可行的实现方式：

方法一：动态收集行数据（灵活直观） #

这种方法通过列表逐行收集数据，适合迭代次数不确定的场景：

# 修正幂运算符为R标准的^
get_Y <- function(X) {
  X^2
}

get_dataframe <- function() {
  # 初始化空列表存储每行数据
  data_list <- list()
  X <- 1
  
  repeat {
    # 计算当前X对应的Y
    Y <- get_Y(X)
    # 将当前X和Y封装为单行DataFrame，添加到列表
    data_list[[length(data_list) + 1]] <- data.frame(X = X, Y = Y)
    
    X <- X * 1.01
    # 终止条件
    if (X > 2) break
  }
  
  # 将所有行合并为一个DataFrame
  do.call(rbind, data_list)
}

# 调用函数获取结果
result_df <- get_dataframe()
# 查看前几行
head(result_df)

方法二：预分配向量（高效优化） #

如果可以提前估算迭代次数，预分配向量的方式效率更高（避免频繁内存分配）：

get_dataframe_optimized <- function() {
  # 估算迭代次数：从1到>2，每次乘1.01的次数
  n_iter <- ceiling(log(2) / log(1.01))
  
  # 预分配X和Y的向量
  X_values <- numeric(n_iter)
  Y_values <- numeric(n_iter)
  
  current_X <- 1
  for (i in 1:n_iter) {
    X_values[i] <- current_X
    Y_values[i] <- get_Y(current_X)
    current_X <- current_X * 1.01
  }
  
  # 转换为DataFrame
  data.frame(X = X_values, Y = Y_values)
}

# 调用优化后的函数
optimized_df <- get_dataframe_optimized()

关键说明 #

• 原代码中的ˆ是全角特殊字符，需替换为R标准的幂运算符^才能正常计算。
• 方法一的核心是用列表收集每行数据，最后通过do.call(rbind, ...)合并；方法二则通过预分配内存提升性能，适合迭代次数较多的场景。

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