R图删除旧图循环

Question

我正在开发一个程序，它会生成一个随时间变化的网格。当我运行代码时，r在第一个时间步创建一个绘图，但用下一个时间步的绘图覆盖它。我想并排绘制它们。

完整代码：https://gist.github.com/anonymous/8fb71a47caf25a80d5f1c4675804120b

特定循环给我带来麻烦。

# plot grid for chosen timesteps 
for (k in 1:length(time)){
    if ((i-1) == (time[k])) {
        par (mfrow = c(2,2))
        plot(NULL, xlim=c(1,nc), ylim=c(1,nr), ylab="", xlab="", xaxt="n", yaxt="n")
        title(main=paste("prgrow", prgrow, ": time", time[k], sep=" "), xlab="", ylab="")
        for (a in 1:nrow(A)){
            for (b in 1:ncol(A)){
                if (A[a,b] == "G"){
                    points(b,a,pch=20,col="green")
                }
                else if (A[a,b] == "0"){
                    points(b,a,pch=".")
                } 
                else if (A[a,b] == "x"){
                    points(b,a,pch="x")
                }
            }
        }
        break}
        k <- k + 1 }  

非常感谢任何帮助！