如何在R中动态追加数据框？我的循环代码无法运行

问题根源 #

你的代码无法运行的核心原因是：

• 第二个循环里，paste("FIRMCA", y, sep="")生成的是数据框名称的字符串（比如"FIRMCA2010"），但rbind()需要的是实际的数据框对象，两者类型不匹配，导致报错。
• 用assign()创建大量独立命名数据框的方式不够高效，还容易引发对象管理混乱。

解决方案 #

方案1：修正原代码的拼接逻辑（适配原有写法） #

如果要保留assign()创建的对象，需要用get()函数把字符串转换为对应的实际数据框，再执行拼接：

# 先初始化空数据框
FIRMCAtemp <- data.frame()

for (y in startwave:endwave) {
    # 用get()获取字符串对应的 데이터框对象
    FIRMCAtemp <- rbind(FIRMCAtemp, get(paste("FIRMCA", y, sep = "")))
}

注意：这种方式仅做临时修正，不推荐长期使用，因为大量独立数据框会增加环境管理成本。

方案2：使用列表存储+批量合并（推荐） #

更规范高效的做法是直接用列表存储所有读取的数据框，最后一次性合并，彻底避免assign()和get()的使用：

rm(list = ls())

library("dplyr")
library("readxl")

date <- "202203"
startwave   <- 2010
endwave     <- 2018

dell <- 1 
if (dell == 1) {
  computer <- "C:/Users/jj22684/"
} else {
  computer <- "C:/Users/lenovo/"
}

Main_path   <- paste(computer, "Dropbox/DATA/REGCON", sep = "")
raw_path      <- paste(computer, "Dropbox/DATA/REGCON/RAW files", sep = "")

# 创建空列表存储所有年份的数据框
firmca_list <- list()

# 循环读取文件并添加年份标识，存入列表
for (y in startwave:endwave) {
    file_path <- file.path(raw_path, paste0("Datos_totales_", y, "_REGCON.xlsx"))
    temp_df <- read_excel(file_path)
    temp_df$year <- y
    firmca_list[[as.character(y)]] <- temp_df
}

# 合并列表中所有数据框（dplyr的bind_rows支持列名不一致的情况）
FIRMCAtemp <- bind_rows(firmca_list)

# 若不用dplyr，也可以用base R方式：
# FIRMCAtemp <- do.call(rbind, firmca_list)

方案优势 #

• 列表存储结构清晰，便于单独查看或修改某一年的数据；
• bind_rows()比rbind()更健壮，能自动匹配列名，即使不同年份的数据列数不一致也能正常合并；
• 代码更简洁，减少了对象管理的出错概率。

内容的提问来源于stack exchange，提问作者Rubén Pérez Sanz