r - 在ggplot2中绘制没有交互的线性回归线

Question

此代码绘制回归线与 ggplot2 中的交互:

library(ggplot2)
ggplot(mtcars, aes(hp, mpg, group = cyl)) + geom_point() + stat_smooth(method = "lm")

可以用 stat_smooth 绘制没有相互作用的线吗？ ?

Answer 1

解决方法是在 ggplot() 之外制作模型.然后对该模型进行预测并将结果添加到原始数据框中。这将添加列 fit , lwr和 upr .

mod<-lm(mpg~factor(cyl)+hp,data=mtcars)
mtcars<-cbind(mtcars,predict(mod,interval="confidence"))

现在您可以使用 geom_line()与 fit值为 y添加三个回归线和 geom_ribbon()与 lwr和 upr添加置信区间。

ggplot(mtcars, aes(hp, mpg, group = cyl)) + geom_point() +
      geom_line(aes(y=fit))+geom_ribbon(aes(ymin=lwr,ymax=upr),alpha=0.4)