We can draw plots in a loop. for (i in 1:5) { cat("\n\nthis is plot ", i, "\n\n") plot(1:i) } this is plot 1 this is plot 2 this is plot 3 this is plot 4 this is plot 5