如何批量导出DataFrame列表为CSV并匹配对应racename命名文件？

你可以通过循环遍历每行数据，结合对应赛事名称构造文件名的方式实现批量导出，下面提供两种常用方法：

方法一：基础for循环（适合新手） #

直接遍历ARCA_separate的每一行，提取对应的数据框和赛事名称，拼接路径后导出：

# 获取数据框总行数
row_count <- nrow(ARCA_separate)

# 循环处理每一行
for (i in 1:row_count) {
  # 取出当前行的目标DataFrame
  target_df <- ARCA_separate$content[[i]]
  # 取出对应的赛事名称
  race_name <- ARCA_separate$racenames[i]
  # 构造完整文件路径（注意用正斜杠或双反斜杠，避免转义问题）
  file_path <- paste0("C:/Users/bubba/Desktop/RStuff/Scraping/ARCA 2012 Season/", race_name, ".csv")
  # 导出CSV，row.names=FALSE避免导出行号（可选但推荐）
  write.csv(target_df, file = file_path, row.names = FALSE)
}

方法二：tidyverse风格（代码更简洁） #

如果习惯用tidyverse工具包，可以用purrr::map2同时遍历content和racenames两列，批量执行导出：

library(purrr)

# 同时遍历DataFrame列表和赛事名称向量
map2(ARCA_separate$content, ARCA_separate$racenames, function(df, name) {
  # 构造路径并导出
  write.csv(
    df,
    file = paste0("C:/Users/bubba/Desktop/RStuff/Scraping/ARCA 2012 Season/", name, ".csv"),
    row.names = FALSE
  )
})

注意事项 #

• 路径中的反斜杠：R中单个反斜杠是转义字符，所以必须用正斜杠/或双反斜杠\\，否则会报错。
• 特殊字符处理：如果racenames里包含斜杠、冒号等非法文件名字符，建议先清理：

  race_name <- gsub("[^a-zA-Z0-9_ ]", "", ARCA_separate$racenames[i])
  

  把非法字符替换为空，避免文件保存失败。

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