tikz在R循环中生成空文件

我正在使用R中的tikzDevice库生成latex中的tikzpicture图。当一个接一个地绘制绘图时，它就起作用了。但是，当我想在循环中生成绘图时，我会得到空文件。以下示例说明了此问题：

library(ggplot2)
library(tikzDevice)

df <- data.frame(
    x = c(1, 2),
    y = c(1, 2)
)

path <- 'some path here'

for (j in 1:25){

    filename <- paste(path, j, sep = '')
    filename <- paste(filename, '.tex', sep = '')

    tikz(file = filename)

    plot <-
        ggplot(data=df, aes(x=x, y=y)) 
    plot
    dev.off()

}

库（ggplot2）
图书馆（tikzDevice）
df
绘图（plot）
或丢失绘图
非常简单的解决方案，解决了问题，谢谢！