如何分别为每个组绘制回归线并将所有组绘制在一个图中？

如何解决如何分别为每个组绘制回归线并将所有组绘制在一个图中？

我已经分别为每个组绘制了回归线。如何添加另一条综合所有组信息的回归线？

这是我的原始 R 脚本：

plotsr.sp <- ggplot(data = result.sp.melt,aes(x=belt,y=sr,group = site,color = site))+
             geom_smooth(method = "lm",se = F)+
             scale_x_discrete(labels = c("Low","Mid","High"))

这是一个示例。我要补充的是中间的黑线。

解决方法

这可以通过两个 geom_smooth 层来实现。对于第一个使用分组变量作为局部美学，它将为您提供组的回归线，而第二个将为总样本添加回归线：

library(ggplot2)

ggplot(data = result.sp.melt,aes(x=belt,y=sr))+
  geom_smooth(aes(group = site,color = site),method = "lm",se = F)+
  geom_smooth(method = "lm",se = F,color = "black")

使用 mtcars 作为示例数据：

ggplot(data = mtcars,aes(x=hp,y=mpg))+
  geom_smooth(aes(color = factor(cyl)),color = "black")