R语言如何迭代保存data.frame对象为.Rds格式文件

场景1：多个data.frame已存储在列表中（最推荐的组织形式） #

推荐优先把需要批量操作的data.frame统一放在列表中管理，迭代保存代码如下：

# 无需额外依赖的Base R实现
# 示例列表，元素名即为后续的文件名前缀
df_list <- list(
  iris_data = iris,
  mtcars_data = mtcars,
  cust_data = data.frame(id = 1:10, score = rnorm(10))
)

# 迭代保存
mapply(function(df_name, df_content) {
  # 可自行修改保存路径，推荐用file.path适配不同系统
  save_path <- paste0(df_name, ".Rds")
  saveRDS(object = df_content, file = save_path)
}, names(df_list), df_list)

# 如果安装了purrr包，代码可简化为无返回值的walk操作
# library(purrr)
# iwalk(df_list, ~ saveRDS(.x, paste0(.y, ".Rds")))

场景2：批量保存当前环境中符合规则的data.frame #

如果需要批量导出当前工作环境中符合命名规则的所有data.frame，可使用以下代码：

# 筛选所有名称以df_开头的data.frame对象
target_dfs <- ls(pattern = "^df_")
target_dfs <- target_dfs[sapply(target_dfs, function(x) inherits(get(x), "data.frame"))]

# 迭代保存
lapply(target_dfs, function(obj_name) {
  saveRDS(get(obj_name), paste0(obj_name, ".Rds"))
})

注意事项 #

• 如需指定保存目录，建议使用file.path()拼接路径，适配Windows、macOS、Linux的路径分隔符，示例：save_path = file.path("./data/output", paste0(df_name, ".Rds"))，保存前可先执行dir.create("./data/output", showWarnings = FALSE, recursive = TRUE)创建不存在的目录
• 导出的.Rds文件可直接使用readRDS("文件路径.Rds")读取，不需要额外指定对象名

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