在R中绘制具有交互作用的回归线

我试图得到一个散点图，显示2条回归线，这样交互作用的效果就很清楚了。 我的代码如下：

lm <- lm(Cage_Int ~ Sex + AVP_mvBNST_ros_caud + Sex:AVP_mvBNST_ros_caud, data=data)

plot(data$Cage_Int, data$AVP_mvBNST_ros_caud, xlab="V1aR in BNSTmv", 
     ylab="Interaction time", col=colors, pch=20)
curve(cbind(x,1,x,1*x) %*% coef(lm), add=TRUE, col="red")
curve(cbind(1,0,x,0*x) %*% coef(lm), add=TRUE, col="blue")

---

lm使用
sex=0
和
sex=1
运行回归，并使用
lm（）
创建两个单独的线性模型。一旦定义了两个模型
model1=lm（）
和
model2=lm（）
，就可以使用
abline（）
添加一行，或者在这种情况下：

abline（模型1）
abline（型号2）

在plot函数之后，这就应该完成了。您也可以使用
abline（）
添加颜色和不同的线条效果。
只是一个友好的提示：因此，我们有一个标准，即提供最少的工作示例（代码和数据），以便其他人可以帮助您。（我没有否决投票，但这可能是原因。）也不需要说“谢谢！”，等等。