grid.newpage में आर बेस प्लॉट का उपयोग कैसे करें?

Question

क्या grid पैकेज के grid.newpage में आर बेस प्लॉट को "बल" करना संभव है? उदाहरण के लिए, यह ठीक काम करता है:

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

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)) 

आर आधार साजिश। par(new=T) का उपयोग करना या तो मदद नहीं करता है।

Answer 1

क्योंकि किसी ने इसका उत्तर नहीं दिया, मैं इसे स्वयं कर दूंगा। जैसा एंड्री ने कहा, इस प्रश्न का उत्तर here है। आप plot.new() बजाय grid.newpage() में आर आधार भूखंडों साजिश gridBase पैकेज से gridFIG() समारोह की आवश्यकता होगी:

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)