r - ggplot を使用して、同じグラフに 2 つの回帰直線 (同じデータ フレームのサブセットで計算) をプロットします。

Question

私はこの種のデータフレームを持っています:

df<-data.frame(x=c(1,2,3,4,5,6,7,8,9,10),y=c(2,11,24,30,45,65,90,110,126,145), a=c(0.2,0.2,0.3,0.4,0.1,0.8,0.7,0.6,0.8,0.9))

ggplot を使用して、条件 (a > または < 0.5) でデータ フレームのサブセットに対して計算された 2 つの回帰直線を同じ図にプロットしたいと思います。

視覚的には、両方の回帰直線が必要です:

df_a<-subset(df, df$a<0.5)

ggplot(df_a,aes(x,y))+ 
  geom_point(aes(color = a), size=3.5) + 
  geom_smooth(method="lm", size=1, color="black") +
  ylim(-5,155) +
  xlim(0,11)

df_b<-subset(df, df$a>0.5)

ggplot(df_b,aes(x,y)) + 
  geom_point(aes(color = a), size=3.5) + 
  geom_smooth(method="lm", size=1, color="black") +
  ylim(-5,155) +
  xlim(0,11)

この図に表示されます。

ggplot(df,aes(x,y))+ geom_point(aes(color = a), size=3.5)

私はpar(new=TRUE)成功せずに試しました。