аюсь сгенерировать 10 пар графиков с несколькими парами на страницу графиков, и я используюfor цикл для построения пар. Однако графики отправляются на устройство в виде отдельных графиков, а не страниц.

MWE ниже имеет идентичные конструкции для базовой графики иggplot версии, но базовая графика работает иggplot не. Что мне нужно сделать, чтобы правильно настроить нумерацию страниц во второй версии?

library(ggplot2)
attach(mtcars)

# correct configuration
par(mfrow=c(2,2))
for (ii in 1:3){
  vars <- c("wt", "disp", "wt")
  plot(get(vars[ii]), mpg)
  hist(get(vars[ii]))
}

# places each on separate plot
par(mfrow=c(2,2))
for (ii in 1:3){
  vars <- c("wt", "disp", "wt")
  p <- ggplot(mtcars, aes(get(vars[ii]), mpg)) + geom_point(size=4)
  plot(p)
  p <- ggplot(mtcars, aes(get(vars[ii]))) + geom_histogram()
  plot(p)
}

detach(mtcars)