R中的层图

我需要将散点图和

allEffects图分层。以下是一些示例数据：

library("effects")
x<-c(1,2,6,7,4,3,5)
y<-c(5,6,3,6,9,4,4)
a<-as.factor(c(1,1,1,2,2,2,2))
xyplot(y ~ x|a)
lm.y<-lm(y~x*a)
plot(allEffects(lm.y))

库（“效果”）
x我建议使用ggplot2软件包，它应该是这样的

ggplot(data, aes(y=y, x=x)) + 
  geom_point(shape = 1) +
  geom_smooth(method="lm", fullrange=T) +
  facet_grid(~a) + 
  theme(aspect.ratio = 1)

它将允许您分层打印

话虽如此，但这并不是一个完整的回答，因为我不知道如何合并您的allEffects（）信息。其他人可能会对此提供更好的反馈。
该软件包
latticeeextra
提供了多种可组合的功能
trellis
对象：
+.trellis
，
c.trellis
和
层
家庭这里您需要
+。网格
：

library("effects")
library("latticeExtra")

x <- c(1,2,6,7,4,3,5)
y <- c(5,6,3,6,9,4,4)
a <- as.factor(c(1,1,1,2,2,2,2))

pxy <- xyplot(y ~ x|a)

lm.y <- lm(y~x*a)
aef <- allEffects(lm.y)

peff + pxy

最后一步是使用
+.grillis
：

library("effects")
library("latticeExtra")

x <- c(1,2,6,7,4,3,5)
y <- c(5,6,3,6,9,4,4)
a <- as.factor(c(1,1,1,2,2,2,2))

pxy <- xyplot(y ~ x|a)

lm.y <- lm(y~x*a)
aef <- allEffects(lm.y)

peff + pxy

很抱歉耽搁了。谢谢，这很有帮助！