在R中使用循环保存绘图

我正在尝试使用此循环保存几个绘图：

set.seed(123)
x <- rnorm(5,1,0.5)
y <- rnorm(5,3,0.5)
df <- data.frame(x,y)

for(i in 1:5){
+ mypath <- file.path("C:","R",paste("plot", i, ".jpg", sep = ""))
+ jpeg(file=mypath)
+ ggplot(df[1:i,], aes(x=x, y=y) ) + geom_point() + coord_cartesian(xlim = c(0,2), ylim = c(0,4))
+ dev.off()
+ }

我想给每个新的绘图添加一行新的数据框。因此，plot1.jpg仅显示数据帧的第一行，plot2.jpg显示第1行和第2行，依此类推

循环工作，生成文件，但为空。这个代码有什么问题

---

提前谢谢。

您应该打印绘图。另外，最好使用ggsave。对不起，shadow。在发布问题之前，我进行了广泛的搜索，但什么也没找到。我和这个问题有什么关系？我必须删除它吗？