r - 如何保存散点图列表

Question

我想保存带有文件名的散点图列表。因此，我给每个地块起一个名字，效果很好：

names(scatterplot_standardcurve) <- 
  sub("\\.xlsx$", 
      ".png", 
      names(standardcurve_concentration))
> print(scatterplot_standardcurve)
$K_20210722

$A_20210722

$c_20210722

$d_20210722

$t_20210722

$v_20210722

然后我想将它们保存在一个特定的文件夹中，但我总是得到一个错误

lapply(names(scatterplot_standardcurve), 
       function(nm) print(scatterplot_standardcurve[[nm]]) + 
         ggsave(filename = file.path("Z:/output/scatterplot_standardcurve/", 
                                     nm )))
Error: Unknown graphics device ''

标签： r

Answer 1

使用imap您将能够迭代 ggplot 对象及其名称。尝试 -

library(purrr)
library(ggplot2)

imap(scatterplot_standardcurve, 
      ~ggsave(sprintf("Z:/output/scatterplot_standardcurve/%s.png", .y), .x))