r - 保存 Rstudio 面板中已经存在的所有绘图

Question

我为一个项目制作了不同的情节(超过一百个)，但我没有在途中捕捉它们(是的，这很糟糕，我知道)。现在，我需要一次保存它们，但不要再次运行我的脚本(这需要几个小时)。有没有办法在 Rstudio 中这样做？

编辑:所有情节都已经存在，我不想再次运行它们。

Answer 1

在 RStudio 中，每个 session 都有一个临时目录，可以使用 tempdir() 获取。 .在该临时目录中，还有另一个始终以 "rs-graphics" 开头的目录。并包含保存为 ".png" 的所有绘图文件。因此，获取".png"的列表文件，您可以执行以下操作:

plots.dir.path <- list.files(tempdir(), pattern="rs-graphics", full.names = TRUE); 
plots.png.paths <- list.files(plots.dir.path, pattern=".png", full.names = TRUE)

现在，您可以将这些文件复制到您想要的目录中，如下所示:

file.copy(from=plots.png.paths, to="path_to_your_dir")

附加功能:

您会注意到， .png文件名是自动生成的(例如， 0078cb77-02f2-4a16-bf02-0c5c6d8cc8d8.png )。所以如果你想给 .png 编号根据它们在 RStudio 中的绘图顺序，您可以按如下方式操作:

plots.png.detials <- file.info(plots.png.paths)
plots.png.detials <- plots.png.detials[order(plots.png.detials$mtime),]
sorted.png.names <- gsub(plots.dir.path, "path_to_your_dir", row.names(plots.png.detials), fixed=TRUE)
numbered.png.names <- paste0("path_to_your_dir/", 1:length(sorted.png.names), ".png")

# Rename all the .png files as: 1.png, 2.png, 3.png, and so on.
file.rename(from=sorted.png.names, to=numbered.png.names)

希望能帮助到你。