R 如何将三个单独的交互图组合成一个图形？

对此表示歉意。以下是我关于可复制数据集的问题：

library(effects)
data(Arrests)

Arrests$year <- as.factor(Arrests$year)

arrests.mod <- glm(released ~ employed + citizen + checks + colour*year + 
                   colour*age, family=binomial, data=Arrests)

t.effects  <- allEffects(arrests.mod)

plot(t.effects, "colour:year")
plot(t.effects, "colour:age")

---

这不管用。也就是说，图形在两个图形中分别复制，但不在同一个图形中。

您可以使用矢量索引引用alleffects对象的特定效果。在你的情况下，我相信t.effects[4:5]或等效的t.effects[c（“颜色：年”，“颜色：年龄”）]

库（效果）
数据（逮捕）
逮捕$year
par（mfrow=c（2,1））
不适用于网格图。它仅适用于基本图形。您可以使用
gridExtra
排列晶格图

library(gridExtra)
p1 <- plot(t.effects, "colour:year")
p2 <- plot(t.effects, "colour:age")
grid.arrange(latticeGrob(p1),
            latticeGrob(p2))

库（gridExtra）
p1不幸的是，
不起作用是什么意思？请使您的情况重现，即向我们提供模拟您的情况所需的数据和代码。请参阅，以获取更多有关如何执行此操作的提示。您的代码中也有一些“流氓”，请查看颜色。抱歉，我在上面提供了一个更好的示例。Juliathanks供您回复。plot（t.effects[4:5]）仍然单独（一个接一个）绘制两个交互-而不是在一个图形中。这很奇怪，它们在同一个图中。
library(effects)
data(Arrests)

Arrests$year <- as.factor(Arrests$year)
arrests.mod <- glm(released ~ employed + citizen + checks + colour*year + colour*age, family=binomial, data=Arrests)
t.effects <- allEffects(arrests.mod)

plot(t.effects[4:5])

library(gridExtra)
p1 <- plot(t.effects, "colour:year")
p2 <- plot(t.effects, "colour:age")
grid.arrange(latticeGrob(p1),
            latticeGrob(p2))