使用split.screen时如何导出为pdf？

Question

我正在尝试导出一组使用split.screen对其进行组合的绘图：

setwd("~/Desktop/")

pdf("Test.pdf", width=16, height=9)
split.screen( figs = c( 2, 1 ) )
split.screen( figs = c( 1, 4 ), screen = 1 )
split.screen( matrix(c(0,0.25,  0.25,1,  0,0,  1,1), ncol=4), screen=2)

screen(3)
plot(1,1)
screen(4)
plot(2,2)
screen(5)
plot(3,3)
screen(6)
plot(4,4)
screen(7)
plot(5,5)
screen(8)
plot(6,6)
dev.off()

如果我将它们发送到Rstudio中的常规“绘图”窗口，即，如果我将pdf设备注释掉，则结果如我所愿： 但是，如果我将它们发送给pdf，则屏幕7和8不合适： 导出为pdf时如何将它们放在正确的位置？