r-我如何将两个双层图放在一起

Question

我正在做一项关于大学生满意度调查的练习，我必须根据性别、课程、大学和父亲的工作对满意度1或0进行双层调查。

我决定把练习分成两张图，一张是男性的，另一张是女性的。这是迄今为止的编码：

library(vcd)
C4_1<- filter(C3,Sexo == "Male")
C4_2<- filter(C3,Sexo == "Female")
a4 <- doubledecker(satisfaccion ~ Asignatura + Profesión_padre + Centro, data = C4_1,gp = gpar(fill = c("orange", "blue")),spacing=spacing_equal(0))
b4 <- doubledecker(satisfaccion ~ Asignatura + Profesión_padre + Centro, data = C4_2,gp = gpar(fill = c("orange", "blue")),spacing=spacing_equal(0))

现在我想把这两个图形合并为一个。我尝试过网格。排列(a4，b4(，但出现了这个错误：

Error in gList(list(0L, 3L, 0L, 7L, 0L, 1L, 2L, 4L, 0L, 1L, 0L, 4L, 2L,  : 
  only 'grobs' allowed in "gList"
Además: Warning messages:
1: In grob$wrapvp <- vp : Realizando coercion de LHD a una lista
2: In grob$wrapvp <- vp : Realizando coercion de LHD a una lista

谢谢你的帮助！！

Answer 1

您可以使用par()函数组合绘图。选项mfrow=c(nrows,ncols)用于指定是希望两个绘图在一行还是两行中。

在你的情况下，我想这应该有效：

par(mfrow=c(1,2))
doubledecker(satisfaccion ~ Asignatura + Profesión_padre + Centro, data = C4_1,gp = gpar(fill = c("orange", "blue")),spacing=spacing_equal(0))
doubledecker(satisfaccion ~ Asignatura + Profesión_padre + Centro, data = C4_2,gp = gpar(fill = c("orange", "blue")),spacing=spacing_equal(0))