如何在R中循环使用write.dat生成自定义命名的.dat文件

我来帮你搞定这个问题！首先得搞清楚write.dat的工作逻辑——它本质是write.table的封装，文件名是通过deparse(substitute(x))获取你传入的对象名，然后自动加上.dat后缀。这就是你两种方法出问题的核心原因：

分析你的两种尝试 #

• 第一种方法：你传get(x)给write.dat，substitute(get(x))会返回字符串"get(x)"，所以最终文件名变成了get(x).dat，而不是你想要的数据集名称加日期。
• 第二种方法：y是字符串（比如"mtcars-2024-05-20"），但write.dat需要的是内存中的数据对象，不是对象名的字符串，所以这会导致错误。

解决方案1：直接使用write.table（推荐） #

既然write.dat只是封装了write.table，我们可以直接调用write.table，自己完全控制文件名，这样更简单灵活：

library(lubridate)
# 如果不需要multiplex包的其他功能，这里可以不用加载它
files <- c("mtcars", "iris")
date <- today()

export <- function(x){
  # 获取目标数据集
  data_to_save <- get(x)
  # 构建完整的文件路径（包含自定义文件名和.dat后缀）
  full_file_path <- file.path("~/save_path/", paste0(x, "-", date, ".dat"))
  # 用与write.dat一致的参数保存文件
  write.table(
    data_to_save,
    file = full_file_path,
    sep = "\t",
    row.names = FALSE,
    col.names = TRUE,
    quote = FALSE
  )
}

# 批量执行导出
invisible(lapply(files, export))

解决方案2：如果一定要用write.dat #

如果你坚持要使用write.dat，可以通过在函数内部创建以目标文件名命名的临时对象，再调用write.dat，最后清理临时对象：

library(lubridate)
library(multiplex)

files <- c("mtcars", "iris")
date <- today()

export <- function(x){
  # 获取目标数据集
  data_obj <- get(x)
  # 生成自定义的对象/文件名
  target_name <- paste(x, "-", date, sep = "")
  # 将数据赋值给临时对象
  assign(target_name, data_obj, envir = parent.frame())
  # 构造并执行write.dat调用
  eval(parse(text = paste0("write.dat(", target_name, ', "~/save_path/")')))
  # 清理临时创建的对象
  rm(list = target_name, envir = parent.frame())
}

invisible(lapply(files, export))

第一种方案更简洁可控，推荐使用；第二种方案则严格遵循了你想用write.dat的需求。

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