如何修改R语言for循环，使其生成完整数据框而非仅最后一行？

你这段循环的核心问题是每次迭代都直接覆盖了demand对象，再加上全局赋值<<-的使用，导致最终只保留了最后一次循环的结果。以下是几种可行的修改方式：

方案1：预先初始化空数据框，循环内追加 #

先创建空数据框并指定列类型，循环中通过rbind()逐行追加结果，同时避免不必要的全局赋值：

# 预先初始化空数据框，定义列的类型
demand <- data.frame(gamma = numeric(), avgcommute = numeric())

for(gamma in seq(from = -0.07, to = -1, by = -0.01)) {
  # 生成当前迭代的行数据
  current_row <- data.frame(gamma = gamma, avgcommute = converge(gamma))
  # 将当前行追加到总数据框中
  demand <- rbind(demand, current_row)
}

注意：这种方式适合小数据集，循环次数过多时rbind()会因重复内存分配降低效率。

方案2：用列表批量处理后合并（R语言推荐写法） #

用lapply生成包含所有行数据的列表，再合并为数据框，效率优于循环追加：

# 先生成所有gamma值的向量
gamma_vals <- seq(from = -0.07, to = -1, by = -0.01)

# 用lapply生成每行的数据框，得到列表
row_list <- lapply(gamma_vals, function(g) {
  data.frame(gamma = g, avgcommute = converge(g))
})

# 合并列表为单个数据框
demand <- do.call(rbind, row_list)

# 若安装了dplyr包，可使用更简洁的写法：
# library(dplyr)
# demand <- bind_rows(row_list)

方案3：预先分配内存（最高效的方式） #

提前计算循环次数并分配好数据框空间，直接填充值，避免内存重复分配：

gamma_vals <- seq(from = -0.07, to = -1, by = -0.01)
total_rows <- length(gamma_vals)

# 预先创建指定行数的数据框
demand <- data.frame(gamma = gamma_vals, avgcommute = numeric(total_rows))

for(i in 1:total_rows) {
  demand$avgcommute[i] <- converge(gamma_vals[i])
}

额外提醒：尽量避免使用<<-，它会修改全局环境中的变量，容易引发意外的变量覆盖问题，仅在明确需要全局变量时使用。

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