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

Question

我试图获得一个散点图，显示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")

这给了我正确的散点图，但回归线没有显示，这不是我想要的（我想要显示回归线，一个用于性别= 0，一个用于性别= 1）

提前多多感谢！

Answer 1

使用Hostname Serial Number Users -------- ------------- ----- Computer001 42K6NNZ TMTech Andrew 和sex=0运行回归，并使用sex=1创建两个单独的线性模型。定义两个模型lm()和model1 = lm(<insert equation>)后，您只需使用model2 = lm(<insert second equaiton>)添加一行，或者在这种情况下：

abline()

在绘图功能之后

应该可以做到这一点。您也可以使用abline(model1) abline(model2)添加颜色和不同的线条效果。