R：同じデータを持つ2つの回帰直線を追加する

Question

私のデータの回帰直線をプロットしています。ここに私が持っているデータです

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

次に私は行4を削除し、以下のように新しいデータセットを取得します。

元のデータセットSahlinsに2つの回帰直線（m1、m2）を追加しようとしています。それだけでは機能しません。 2つの別々のプロットでのみ動作します。ここに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) 

1つのプロットで2つの回帰直線を得るにはどうすればよいですか？これは私が望むプロットです。 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)