如何在R函数中按数据集列表指定不同路径保存清洗后的数据

1. 调整自定义函数，新增输出目录参数 #

给my_function添加output_dir参数，让保存路径可以动态指定，同时自动创建不存在的文件夹：

my_function <- function(df, output_dir = "OUTPUT1") {
  # 自动创建输出目录（递归创建父目录）
  if (!dir.exists(output_dir)) {
    dir.create(output_dir, recursive = TRUE)
  }
  
  # 原有数据清洗逻辑：去重、计算BMI
  df_cleaned <- df %>%
    distinct() %>%
    mutate(BMI = weight / (height/100)^2)
  
  # 动态生成保存路径
  file_name <- paste0(deparse(substitute(df)), ".rds") # 保留原文件名逻辑
  saveRDS(df_cleaned, file.path(output_dir, file_name))
  
  return(df_cleaned)
}

2. 批量处理两个数据集列表 #

分别调用函数时传入对应的输出目录：

# 处理mydatalist，结果存入OUTPUT1
lapply(mydatalist, function(x) my_function(x, output_dir = "OUTPUT1"))

# 处理mydatalist2，结果存入OUTPUT2
lapply(mydatalist2, function(x) my_function(x, output_dir = "OUTPUT2"))

关键说明 #

• output_dir参数设置默认值为"OUTPUT1"，兼容原有代码逻辑，无需修改旧调用
• dir.create(..., recursive = TRUE)确保即使父目录不存在也能创建成功
• file.path自动适配不同操作系统的路径分隔符，避免路径错误

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