r - ggplotの多変量回帰におけるダミー相互作用項

Question

ggplot でダミー相互作用項の 2 つのグラフを表示したいと考えています。

私のコードは

plot3<-ggplot(tobit, aes(issue_ideology_pre, issue_ideology_post, 
                         colour=factor(real_liberal_exposure)))
plot3<-plot3 + stat_smooth(method="lm", formula = "y~x",   
                           aes(fill=factor(real_liberal_exposure)), 
                           na.rm=TRUE, alpha=0.3, size=0.5)
plot3<-plot3 + scale_colour_manual(values=c("darkgrey", "blue"),
                                   name="Started liberal selective Exposure",
                                   labels=c("no", "yes"), breaks=c(0,1))
plot3<-plot3 + scale_fill_manual(values=c("darkgrey", "blue"),
                                 name="Started liberal selective Exposure",
                                 labels=c("no", "yes"), breaks=c(0,1))
plot3<-plot3 + scale_y_continuous(lim=c(1.00, 5), breaks=1:5) + 
  scale_x_continuous(lim=c(1.00, 5), breaks=1:5)
plot3<-plot3 + xlab("Issue-Ideology at t-1") + ylab ("Issue-Ideology at t")

すべての独立変数x(相互作用を除く) と従属変数を に格納しましたy。

「効果」を使用して相互作用効果を示す簡単な方法があることは知っていますが、私の意見では、ggplot ソリューションには出力として 2 つの異なる回帰が必要です。

ただし、プロットコーディングから数式を削除して、二変量回帰に基づいて回帰を実行すると、結果は同じになります。

それについての説明はありますか、それとも何か不足していますか?