R 如何将循环打印打印打印到单个pdf/多个pdf文件中

我正在做循环绘图，想把绘图打印成pdf。我该怎么办。我很困惑

循环代码如下所示：

for (i in 1:12)){

   df<-Sample.Data %>% filter(ID==i) 
         p1 <- ggplot(data =df)+
   geom_line(aes(x = Days, y = Result, color = Item))+
      
 print(p1)
 }

for（1:12中的i））{
df%过滤器（ID==i）
p1使用
pdf
功能尝试此操作（没有提供数据，因此无法添加一些输出）：

#Pdf
pdf（'Example.pdf'，宽度=14）
#环路
（我在1:12中）{
#资料
df%过滤器（ID==i）
#密谋
p1我可以定义输出位置吗？如果我将我的位置定义为
outfile
，那么如何在该位置输出名为“test.pdf”的pdf？@Stataq您必须使用
setwd（）
设置一个目录，然后您的pdf将保存在该位置。我没有使用setwd（），而是使用了
out\u dir=“//Statistics”
@Stataq在这种情况下，请尝试以下操作：
pdf（粘贴0（out_dir，//Example.pdf'），宽度=14）
在代码开头！非常感谢！它很有效。
#Pdf
pdf('Example.pdf',width = 14)
#Loop
for (i in 1:12)){
  #Data
  df<-Sample.Data %>% filter(ID==i) 
  #Plot
  p1 <- ggplot(data =df)+
    geom_line(aes(x = Days, y = Result, color = Item))
  #Print
  plot(p1)
}
dev.off()