合并使用R中的效果包创建的两个绘图

我有以下问题。在运行一个有序的logit模型之后，我想使用R的effects包来可视化结果。这很好，我对两个自变量这样做了，然后我尝试将两个图结合起来。然而，这似乎不起作用。我在这里提供了一个可复制的小示例，以便您自己看到我的问题：

library(car)
data(Chile)
mod <- polr(vote ~ age + log(income), data=Chile)

eff <- effect("log(income)", mod)
plot1 <- plot(eff, style="stacked",rug=F, key.args=list(space="right"))

eff2 <- effect("age", mod)
plot2 <- plot(eff2, style="stacked",rug=F, key.args=list(space="right"))

---

在后一种情况下，两个图的位置很好，但添加第二个图后，第一个图仍然消失（或者更好，它被覆盖）。如果您有任何关于如何防止这种行为的建议，我们将不胜感激。

阅读

？print.eff

的一长串参数，我们会发现有一些参数支持这样做：

plot(eff, style="stacked",rug=F, key.args=list(space="right"),
     row = 1,col = 1,nrow = 1,ncol = 2,more = TRUE)
plot(eff2, style="stacked",rug=F, key.args=list(space="right"),
     row = 1,col = 2,nrow = 1,ncol = 2)

par（）

不起作用的原因是，此软件包使用的是lattice图形，它基于grid系统，与基本图形不兼容。无论是

par（）

还是

layout

都不会对网格图形产生任何影响。

这似乎有效：

plot(eff,col=1,row=2,ncol=1,nrow=2,style="stacked",rug=F,
  key.args=list(space="right"),more=T)
plot(eff2,col=1,row=1,ncol=1,nrow=2,style="stacked",rug=F, 
  key.args=list(space="right"))

编辑：太晚了

plot(eff,col=1,row=2,ncol=1,nrow=2,style="stacked",rug=F,
  key.args=list(space="right"),more=T)
plot(eff2,col=1,row=1,ncol=1,nrow=2,style="stacked",rug=F, 
  key.args=list(space="right"))