R：添加两条具有相同数据的回归线

Question

我正在为我的数据绘制回归线。这是我的数据

library(car)
data(Sahlins)
m1<- lm(acres~consumers,data=Sahlins)

然后我删除第4行，得到一个新的数据集如下。

Sahlins[-c( 4), ]
a<- Sahlins[-c( 4), ]
m2 <- lm(acres~consumers,data=a)

我尝试为原始数据集Sahlins添加两条回归线（m1和m2）。但它不起作用。只能使用两个单独的情节。这是我的r代码。

library(ggplot2)
ggplot(Sahlins,aes(consumers,acres))+geom_point()+geom_smooth(method="lm", se=F) 
ggplot(a,aes(consumers,acres))+geom_point()+geom_smooth(method="lm", se=F) 

如何在一个情节中获得两条回归线？这是我想要的情节。 enter image description here 谢谢。

Answer 1

library(car)
data(Sahlins)

ggplot(Sahlins, aes(consumers, acres)) + 
  geom_point() + 
  geom_smooth(method="lm", se=F) +
  geom_smooth(data = Sahlins[-4, ], method="lm", se=F)