我在R语言中创建了一个自定义函数，希望将函数生成的数据框结果导出为.csv格式文件。需求是每次调用该函数时，能将数据保存到函数参数指定的独立文件中。我编写了如下示例代码：

write<- function (a, b, y) { 
  x <- a + b 
  write.csv(x, file = paste0(",y,"), fileEncoding = "UTF-16LE") 
}
write(2, 3, "C:\\Users\\lol\\Desktop\\file1.csv")
write(2, 4, "C:\\Users\\lol\\Desktop\\file2.csv")

请问该需求是否可以实现？若可以，正确的实现方式是什么？提前感谢。

当然可以实现你的需求！咱们先看看你代码里的核心问题，再给你正确的实现方式：

你的代码里最大的问题是文件名参数传递错误——你写了paste0(",y,")，这会把字符串",y,"当作固定文件名，而不是去读取你传入的y参数里的路径值。

正确的实现代码 #

# 小提示：尽量别用write当函数名，R基础包里已经有个同名的write()函数，重名容易搞混
my_export_csv <- function(a, b, output_file) { 
  # 生成计算结果（这里a+b是单个值，write.csv会自动转成数据框导出）
  result <- a + b 
  # 直接用参数output_file作为导出路径，不需要额外拼接
  write.csv(result, file = output_file, fileEncoding = "UTF-16LE", row.names = FALSE)
}

# 调用示例，和你原来的用法一致
my_export_csv(2, 3, "C:\\Users\\lol\\Desktop\\file1.csv")
my_export_csv(2, 4, "C:\\Users\\lol\\Desktop\\file2.csv")

关键修改说明 #

1. 避免函数名冲突：把函数名从write改成了my_export_csv，防止覆盖R自带的write()函数，避免后续使用出现奇怪的问题。
2. 正确传递文件路径：直接将参数output_file（对应你原来的y）传给write.csv的file参数，不需要用paste0()——只有当你需要动态生成文件名（比如加日期戳）时才需要拼接字符串，这里直接用传入的路径就好。
3. 优化导出格式：添加了row.names = FALSE，默认write.csv会把行号写入文件，大部分场景下这个行号是多余的，关掉它更清爽。

额外实用建议 #

• 如果你的实际场景中result是真正的数据框（不是单个数值），这段代码完全适用，write.csv会正确导出所有列和行。
• 可以加个路径有效性检查，防止因为文件夹不存在报错：

my_export_csv <- function(a, b, output_file) { 
  result <- a + b 
  # 检查目标文件夹是否存在，不存在就创建
  target_dir <- dirname(output_file)
  if (!dir.exists(target_dir)) {
    dir.create(target_dir, recursive = TRUE)
    message("已创建文件夹：", target_dir)
  }
  write.csv(result, file = output_file, fileEncoding = "UTF-16LE", row.names = FALSE)
}

这样即使你传入的路径里有未创建的文件夹，函数也能自动生成，避免报错。

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