如何将多个命名为data_x的不同维度dataframe批量导出为csv文件

你原有代码的核心问题是仅将匹配到的dataframe名称字符串存入列表，并未实际读取对应数据框的内容，同时自定义的bindFn函数属于多余逻辑——不同维度的dataframe不需要合并处理，直接单独导出即可。

正确实现步骤如下：

• 获取当前环境中所有前缀为data的dataframe名称
• 按名称读取对应dataframe生成列表（支持任意维度的dataframe）
• 遍历列表逐个导出为CSV文件

可直接运行的代码示例 #

# 第一步：匹配所有命名为data开头的对象名称
df_names <- ls(pattern = "^data")
# 第二步：读取对应对象生成数据框列表，mget会自动按名称从当前环境拉取数据
df_list <- mget(df_names)

# 批量导出：for循环写法，逻辑更易读
for (df_name in names(df_list)) {
  # 文件名直接复用原dataframe命名，无需额外加data前缀，避免生成data_data_xxx的重复命名
  write.csv(df_list[[df_name]], file = paste0(df_name, ".csv"), row.names = FALSE)
}

# 可选：单行lapply写法，效果和上述for循环完全一致
# lapply(names(df_list), function(x) write.csv(df_list[[x]], file = paste0(x, ".csv"), row.names = FALSE))

补充说明 #

如果需要自定义导出后的文件名规则，修改paste0内的拼接逻辑即可。比如要在原命名前加export_前缀，就改成paste0("export_", df_name, ".csv")。

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