R语言如何将文件保存到自动生成的指定文件夹中

你已经通过dir.create()创建了目标文件夹，且文件夹路径存在filename变量里，后续存文件核心只要拼出「文件夹路径+目标文件名」的完整路径，传给对应的写入函数即可，不需要额外做路径切换操作。

优先用file.path()拼路径，这个函数会自动适配Windows、macOS、Linux不同系统的路径分隔符，比手动打/或者\靠谱，不会出现斜杠方向不对导致的路径报错。

下面是几种常见存储场景的示例代码：

• 存储csv格式表格

# 假设你要存的数据集对象叫 my_df，最终在新建文件夹里生成 result.csv
full_file_path <- file.path(filename, "result.csv")
write.csv(my_df, file = full_file_path, row.names = FALSE)

• 存储ggplot2绘图结果

library(ggplot2)
# 假设你已经生成了ggplot对象p
p <- ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + geom_point()
# 直接把拼好的路径传给ggsave即可
ggsave(
  filename = file.path(filename, "scatter_plot.png"),
  plot = p,
  width = 8,
  height = 6,
  dpi = 300
)

• 存储R原生RDS格式文件（适合存中间分析对象，保留所有数据属性不丢失）

saveRDS(my_df, file = file.path(filename, "temp_analysis_result.rds"))

• 存储基础绘图结果

# 存pdf格式
pdf(file = file.path(filename, "base_plot.pdf"), width = 10, height = 8)
plot(iris$Sepal.Length, iris$Sepal.Width)
dev.off()

顺便提几个你原有代码的小优化点，能避免后续踩坑：

1. 时间戳格式化代码里多打了一个百分号：'%d_%m%__%H_%M'里%m后面的%是多余的，会导致生成的文件夹名带无意义的%字符，建议改成'%d_%m_%H_%M'
2. 你写的sub('\\..*', ' ', str1)这行没有实际作用，你的str1本身是固定字符串Test_run_，不带点后缀，替换后反而会在字符串末尾加个空格，导致生成的文件夹名末尾带空格，后续找文件容易出问题，直接去掉这步就行
3. 调用dir.create()的时候建议加上recursive = TRUE, showWarnings = FALSE参数，就算父文件夹不存在、或者目标文件夹已经存在，也不会抛出报错中断代码：

# 优化后的文件夹创建代码
str1 = 'Test_run_'
filename = paste0(str1, format(Sys.time(),'%d_%m_%H_%M'))
dir.create(filename, recursive = TRUE, showWarnings = FALSE)

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