Создание нескольких графических элементов из R-функции

Я бы хотел создать несколько графических окон из функции в R, используя графику ggplot...

testf <- function(a, b) {
  devAskNewPage(TRUE)
  qplot(a, b);
  # grid.newpage(recording = TRUE)
  dev.new()
  qplot(a, a+a);
  # grid.newpage(recording = TRUE)
  dev.new()
  qplot(b, b+b);
}

library(ggplot2)

x <- rnorm(50)
y <- rnorm(50)
testf(x, y)

Однако ни dev.new(), ни grid.newpage(), похоже, не закрашивают предыдущий график.

Я знаю, что в R функции обычно производят только последнее, что они оценивают, но я хотел бы лучше понять процесс и узнать о возможных возможных обходных решениях.

Мысли?

Ответ 1