使用R中的循环保存绘图

Question

我试图用这个循环保存几个图：

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行，依此类推。

循环工作，并生成文件，但是空白。这段代码有什么问题？

提前致谢。