已将多个GGR绘图保存在文件夹中

我有以下数据和代码

data <- data.frame(trt = c("A", "A", "B", "B", "B", "B", "B", "A", "A", "A"), group = c("G1", "G1", "G1", "G1", "G1", "G2", "G2", "G2", "G2", "G2"), value = c(6.4, 7.2, 6.5, 6.6, 6.2, 7.2, 8.5, 7.3, 7.1, 6.9))

for(i in c(1:2)) {
  savePDFPath <- paste("/Path/Plot/G", i, ".pdf", sep = "")
  pdf(file = savePDFPath)
  dd <- subset(data, group == paste("G", i, sep = ""))
  ggplot(dd, aes(trt, value)) + geom_boxplot()
  dev.off()
}

data尝试使用
ggsave（）
将绘图另存为pdf。我已经尝试了下面的代码，它是有效的

for(i in c(1:2)) {
  savePDFPath <- paste("/Path/Plot/G", i, ".pdf", sep = "")
  dd <- subset(data, group == paste("G", i, sep = ""))
  ggplot(dd, aes(trt, value)) + geom_boxplot()
  ggsave(savePDFPath)
}

for（c（1:2）中的i）{
savePDFPath我不能100%确定发生错误的原因，但我可以通过显式打印绘图来修复它：

for(i in c(1:2)) {
    savePDFPath <- paste("Plots/G", i, ".pdf", sep = "")
    pdf(file = savePDFPath)
    dd <- subset(data, group == paste("G", i, sep = ""))
    p <- ggplot(dd, aes(trt, value)) + geom_boxplot()
    print(p)
    dev.off()
}

for（c（1:2）中的i）{
savePDFPath由于您没有添加任何几何图形，ggplot代码将只生成一个空绘图。在尝试将每个绘图保存到PDF之前，您是否验证了每个绘图都有效？请尝试提供一个可复制的示例（带有示例数据），以便人们可以自己尝试。