如何将多个ggplot对象及文件保存至压缩文件夹？

一、处理ggplot图像的打包流程 #

1. 先建个临时文件夹存文件 #

先加载ggplot2，然后创建一个临时文件夹，避免把文件散在工作目录里：

library(ggplot2)

# 创建临时文件夹，已存在就不报错
temp_dir <- "temp_files"
dir.create(temp_dir, showWarnings = FALSE)

2. 保存你的ggplot图像到这个文件夹 #

用ggsave()把plot1、plot2存成图像文件，格式随便选（png、pdf都行）：

# 保存plot1为png
ggsave(file.path(temp_dir, "plot1.png"), plot = plot1, width = 6, height = 4)
# 保存plot2为png
ggsave(file.path(temp_dir, "plot2.png"), plot = plot2, width = 6, height = 4)

3. 打包整个文件夹 #

用base R自带的zip()函数直接压缩这个文件夹，生成压缩包：

# 生成名为plots_archive.zip的压缩包
zip(zipfile = "plots_archive.zip", files = temp_dir)

要是用完临时文件夹想删掉，执行这个：

unlink(temp_dir, recursive = TRUE)

二、混合打包图像和CSV/TXT文件 #

如果要把数据文件和图像一起打包，只需要把CSV/TXT也存到同一个临时文件夹里就行：

# 存mtcars为CSV
write.csv(mtcars, file.path(temp_dir, "mtcars_data.csv"), row.names = FALSE)
# 存个测试文本文件
writeLines(c("这是打包的说明", "第二行内容"), file.path(temp_dir, "notes.txt"))

# 重新打包，现在压缩包会包含所有文件
zip(zipfile = "combined_files.zip", files = temp_dir)

额外技巧 #

• 图像格式可以改，比如把.png换成.pdf或.jpeg，ggsave()会自动适配格式。
• 要是只想打包特定文件，不用整个文件夹，可以把要打包的文件路径列成向量传给files参数：

selected_files <- c(
  file.path(temp_dir, "plot1.png"),
  file.path(temp_dir, "mtcars_data.csv")
)
zip(zipfile = "selected_files.zip", files = selected_files)

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