Have you tried layout? layout(matrix(1:10, 5, 2, byrow = TRUE)) for(i in 1:10){ plot(rnorm(100), type = "l", col = "red", main = paste("Your Variable Number", i, sep = " ")) lines(runif(100), col = "blue") } Does this get you started? -A