导出和保存名称基于列的 ggplots 对象列表

问：

成为 R 用户已经有一年了 - 所以还有很多东西要学。无论如何，我的问题是：

• 如何导出列表中的 ggplot 并根据它们的位置专门命名它们。

以下是我使用我所在位置创建的虚拟数据。

location <- c('obs1', 'obs2', 'obs3', 'obs4', 'obs5', 'obs6')
percentage <- c(40, 30, 20, 40, 20, 30)
mean_percentage <- c(30, 30, 30, 30, 30, 30)

dat1 <- data.frame(location, percentage, mean_percentage)

plot.func <- function(dat) {
  
  dat %>% 
    pivot_longer(cols = 2:3, names_to = 'place', values_to = 'percent') %>%
    ggplot(aes(x = place, y = percent, fill = place)) +
    geom_bar(stat = 'identity')
  
}

myplots <- list()

myplots <- lapply(1:nrow(dat1), function(i) plot.func(dat1[i,]))

上面的代码生成了名为“myplots”的列表，其中包含 6 个 ggplot。

我想使用基于位置变量的名称单独导出这些内容。

例如：obs1.barchart.pdf、obs2.barchart.pdf、obs3.barchart.pdf等。

我尝试了各种不同的方法，但都在兜圈子。任何帮助非常感谢。

最好 回旋镖