如何在grid.newpage中使用R基图？

是否可以在

网格
包的
网格.newpage
中“强制”R基图？例如，这很好：

library(grid)
grid.newpage()
vp1 <- viewport(x=0,y=0.5,width=0.5, height=0.5, just = c("left", "bottom"))
vp2 <- viewport(x=0.5,y=0,width=0.5, height=0.5, just = c("left", "bottom"))
pushViewport(vp1)
grid.rect()
grid.text("vp1", 0.5, 0.5)
upViewport()
pushViewport(vp2)
grid.rect()
grid.text("vp2", 0.5, 0.5)

库（网格）
grid.newpage（）
vp1因为没有人回答这个问题，所以我会自己做。正如安德烈所说，这个问题的答案是。您需要使用
gridFIG（）
程序包中的
gridBase
函数在
plot.new（）
中绘制R个基本图，而不是
grid.newpage（）
：

库（网格）
图书馆（gridBase）
plot.new（）
vp1@james我学会了在RTH中永远不要说不可能的事情。grid的作者Paul Murrell的软件包允许你这样做。例如，请参见@Andrie I stand correct！尽管我注意到基本的差异仍然存在局限性，但这回答了你的问题：
fig=gridFIG（）
！！！谢谢你，安德里！
grid.newpage()
vp1 <- viewport(x=0,y=0.5,width=0.5, height=0.5, just = c("left", "bottom"))
vp2 <- viewport(x=0.5,y=0,width=0.5, height=0.5, just = c("left", "bottom"))
pushViewport(vp1)
grid.rect()
print(plot(1,2))
grid.text("vp1", 0.5, 0.5)
upViewport()
pushViewport(vp2)
grid.rect()
print(plot(1,2))

library(grid)
library(gridBase)
plot.new()
vp1 <- viewport(x=0,y=0.5,width=0.5, height=0.5, just = c("left", "bottom"))
vp2 <- viewport(x=0.5,y=0,width=0.5, height=0.5, just = c("left", "bottom"))
pushViewport(vp1)
grid.rect()
grid.text("vp1", 0.5, 0.5)
par(new=TRUE, fig=gridFIG())
plot(1,2)
upViewport()
pushViewport(vp2)
grid.rect()
grid.text("vp2", 0.5, 0.5)
par(new=TRUE, fig=gridFIG())
plot(1,2)