lattice xyplot - 向部分数据添加回归线答案

【问题标题】：lattice xyplot - add a regression line to part of the datalattice xyplot - 向部分数据添加回归线
【发布时间】：2016-01-29 07:25:53
【问题描述】：

我对 R 中 lattice 库中的 xyplot 有疑问。

以下是数据示例：

set.seed(4)
mydata <- data.frame(x.data = rnorm(50),
                 y.data = rnorm(50),
                 type = rep(c("A","B"), 50))
head(mydata)

mod <- lm(x.data ~ y.data*type, data= mydata)
summary(mod)

xyplot(y.data + fitted(mod) ~ x.data, groups= type, data= mydata, auto.key=F)

如何才能将回归线仅添加到 A 类数据并且仅在绘图的拟合（mod）部分中。是否有可能只有从最小值到最大值的回归线？

我希望结果看起来像这样：

感谢您的帮助。我真的很感激。

【问题讨论】：

标签： r line lattice

【解决方案1】：

library(lattice)
library(latticeExtra)

set.seed(4)
mydata <- data.frame(x.data = rnorm(50),
                     y.data = rnorm(50),
                     type = rep(c("A","B"), 50))
head(mydata)

mod <- lm(x.data ~ y.data*type, data= mydata)
p1 <- predict(mod, newdata = data.frame(y.data = range(mydata$y.data), type = "A"))

xyplot(y.data + fitted(mod) ~ x.data, groups= type, data= mydata, auto.key=F) +
  layer(panel.lines(range(mydata$x.data), p1, col = "black", lty = 1), rows = 1, columns = 2)

【讨论】：

太棒了。谢谢帕斯卡。还有一个问题 - 是否可以仅在数据可用的部分限制行 - 从 xmin 到 xmax？
感谢您的快速回放！