在 grid.layout(1,2) 上绘制第二个图覆盖整个屏幕

问题描述

我用 grid.layout 设置了两个视口，目的是将它们显示在两列一行中。第一个视口用于表格，第二个视口用于绘图。第二个情节，应该出现在左侧的视口上，但覆盖整个屏幕，所以第一个视口消失。此外，我收到“无法弹出顶级视口”警告。有什么建议吗？

library(grid)
library(gridExtra)
library(gridBase)
  

top.vp <- viewport(layout=grid.layout(1,2,widths=unit(c(5,2),c("null","null"))))

p1<-viewport(layout.pos.col=1,name="plot1")
p2<-viewport(layout.pos.col=2,name="plot2")
splot <- vpTree(top.vp,vpList(p1,p2)) 
  
pushViewport(splot) 
  
seekViewport("plot2") # it does not show up
grob <-  tableGrob(iris[1:2,1:2])  
grid.draw(grob)
  
upViewport(1)
seekViewport("plot1")
grid.draw(plot(1:10))
  
upViewport(0)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）