如何在R中高效将多个数据框追加到对应CSV文件？

我用readr包保存了两个数据框到CSV文件：

library(readr)
df1 <-  data.frame(time = c(10,20,30), score = c(4,5,6))
df2 <-  data.frame(lane = c(200,500,400), score = c(2,3,8))
write_csv(df1, "aframe.csv")
write_csv(df2, "bframe.csv")

之后会定期收集新数据，需要追加到对应的现有CSV文件中：

df3 <-  data.frame(time = c(11,22,35), score = c(5,4,3))
df4 <-  data.frame(lane = c(700,600,500), score = c(6,7,9))

单独执行追加写入是可行的：

write_csv(df3, "aframe.csv", append = TRUE)
write_csv(df4, "bframe.csv", append = TRUE)

但尝试用以下批量写法时出现错误：

write_csv(c(df3, df4), c("aframe.csv", "bframe.csv"), append = TRUE)

我不局限于使用readr包，用write.table时也遇到类似问题，想找到更高效的批量追加方式。

可行的批量解决方案 #

方法1：用purrr的map2实现对应批量处理 #

purrr包的map2函数可以将数据框列表和文件名列表一一配对处理，完美适配这种批量追加场景：

library(readr)
library(purrr)

# 准备待追加的数据框列表和对应的目标文件列表
target_dfs <- list(df3, df4)
target_files <- c("aframe.csv", "bframe.csv")

# 执行批量追加
map2(target_dfs, target_files, ~write_csv(.x, .y, append = TRUE))

如果不想额外加载purrr包，用基础R的mapply也能实现同样效果：

# 基础R版本，无需额外依赖
mapply(function(df, file) {
  write.csv(df, file, append = TRUE, row.names = FALSE)
}, list(df3, df4), c("aframe.csv", "bframe.csv"))

⚠️ 注意：使用write.csv时必须加上row.names = FALSE，否则每次追加都会写入行号，导致CSV格式混乱。

方法2：封装自定义函数方便重复调用 #

如果需要频繁执行这类批量追加操作，可以封装一个函数，灵活切换readr或基础R的写入方式：

append_to_csv <- function(df_list, file_list, use_readr = TRUE) {
  if (use_readr) {
    purrr::map2(df_list, file_list, ~readr::write_csv(.x, .y, append = TRUE))
  } else {
    mapply(function(df, file) {
      write.table(df, file, 
                  append = TRUE, 
                  sep = ",", 
                  row.names = FALSE, 
                  col.names = FALSE)
    }, df_list, file_list)
  }
}

# 调用示例
append_to_csv(list(df3, df4), c("aframe.csv", "bframe.csv"))

⚠️ 注意：使用write.table追加时，因为目标文件已经有表头了，所以要设置col.names = FALSE，避免重复写入表头。

原错误写法的问题原因 #

c(df3, df4)会把两个数据框拼接成一个单一的列表，但write_csv和write.table都只接受单个数据框作为第一个输入参数，无法识别这种列表结构，因此会触发错误。必须让每个数据框和对应的文件一一对应，逐个完成写入操作。

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