这段代码工作正常，直到我把它放在R上

我是R上的新手，我正在尝试用这段代码生成显示csv文件数据的jpges（大部分是复制的）。当我用一个文件运行它时，它工作得很好，但当我尝试用for循环实现它时，它会运行所有文件，但不会生成jpges。知道为什么吗？提前谢谢

代码如下：

x<-c("P1DPTO03APURIMAC","P1DPTO04AREQUIPA","P1DPTO08CUSCO","P1DPTO11ICA","P1DPTO15LIMA_PROVINCIA","P1DPTO15LIMA_REGION","P1DPTO21PUNO","P2DPTO03APURIMAC","P2DPTO04AREQUIPA","P2DPTO08CUSCO","P2DPTO11ICA","P2DPTO15LIMA_PROVINCIA","P2DPTO15LIMA_REGION","P2DPTO21PUNO","P3DPTO03APURIMAC","P3DPTO04AREQUIPA","P3DPTO08CUSCO","P3DPTO11ICA","P3DPTO15LIMA_PROVINCIA","P3DPTO15LIMA_REGION","P3DPTO21PUNO")
seq_along(x)

for(i in seq_along(x)) {
  lugar=x[i]
  str_jpeg = paste(lugar,".jpeg",sep="")
  str_csv = paste(lugar,".csv",sep="")
  print(str_csv)

  jpeg(str_jpeg)
  newdata<-read_csv(str_csv)
  dataperu <- newdata
  plt <- ggplot(newdata,aes(x = DIA, y = MEDIA_MOVIL))
  plt
  plt <- plt + geom_line(color="red", size=1.5)
  plt
  mayor<-max(newdata$INCIDENCIA)
  mayor
  plt <- plt + geom_ribbon(aes(ymin = 0, ymax = mayor),
                           alpha = 0.15, size=2)
  plt
  plt <- plt + labs(x = 'Día', y = 'Tasa de Incidencia de Covid-19')
  plt
  plt <- plt +  theme_bw()
  plt
  plt <- plt + ylim(0, mayor) + xlim(1, 176)
  plt <- plt + geom_point(data=dataperu, aes(x=DIA, y=INCIDENCIA), size=1.25)
  plt
  
  titulo<-substr(lugar, 9, nchar(lugar))
  plt <- plt +ggtitle(titulo)
  plt
  dev.off()
}

xy您需要
print（plt）
随时捕获绘图。我不确定这是在你拥有的每一行
plt
上，还是在循环体的倒数第二行上。