为什么plot_grid打开新的图形设备？

Question

我想使用Rscript来显示图形。当用户关闭图形时，代码应结束。为此，我最后使用了while循环。我的问题是plot_grid打开了一个新的图形设备，然后我的while循环变得混乱了。我暂时使用骇客关闭装置。

为此，我正在使用：-

library(ggplot2)
library(cowplot)

p1 <- ggplot(diamonds, aes(carat))  +   geom_density()
p2 <- ggplot(diamonds, aes(carat))  +   geom_density()
print(dev.list())

p3 <- plot_grid(p1,p2)
# This is a hack
dev.off()
print(dev.list())
x11(width=13,height = 8.5)

print(dev.list())
print(p3)

print(dev.list())

while (!is.null(dev.list())) {
    Sys.sleep(1)
    print(100)
    print(dev.list())
}

print("Done")

有人可以告诉我为什么吗

p3<- plot_grid(p1,p2) 

打开新的图形设备吗？

或者，当我这样做

library(ggplot2)
library(cowplot)

p1 <- ggplot(diamonds, aes(carat))  +   geom_density()
p2 <- ggplot(diamonds, aes(carat))  +   geom_density()

print(dev.list())
x11(width=13,height = 8.5)
plot_grid(p1,p2)

print(dev.list())

while (!is.null(dev.list())) {
    Sys.sleep(1)
    print(100)
    print(dev.list())
}

print("Done")

以上内容同样适用。

我想了解为什么plot_grid打开一个新的图形设备。