r - 如何将两个 'vcd' 网格图形放在一个图中？

Question

我想在 R 中的一个图中放置两个(有些非标准的)网格图形。

尝试:

require(vcd)
mosaic(Titanic)
assoc(Titanic)

问题是这些不是 lattice 图形，据我所知，它们没有 layout 参数或类似参数。由于这些是 grid 图，因此它们不受 base 图表技巧的影响，例如 par(mfrow=c(1,2))。

如何将上面的两个图放在一个图中，使两个图在同一条线上？

我已经尝试了 How to plot grid plots on a same page? 中的建议, 但它们似乎不适用于 vcd 图。最终我想获得类似于:

Answer 1

这两个图似乎都没有返回任何对象，我看不出如何通过查看 grid.ls() 来获取这些信息。所以使用来自 this answer 的想法

library(vcd) 
library(gridGraphics)
library(gridExtra)

mosaic(Titanic)  
m <- grid.grab()  

assoc(Titanic)  
a <- grid.grab()

grid.newpage()
grid.arrange(m, a, ncol=2)

我确定会有更类似网格的方法，但是......