ggplot2 geom_smooth独立于可变的形状和颜色

Question

我希望得到一个ggplot，其中包含一个单一且通用的geom，可以平滑所有变量，不受形状和颜色的影响。     我试图将颜色强制为“红色”但没有成功。     我的脚本是这样的：

 ggplot(CRESCITA, aes(DAGE,PESO, shape=PEN,col=RPRO))
 + geom_point(size=4) + xlim(250,600) + geom_hline(yintercept = 400)
 + geom_vline(xintercept = 380) +  geom_smooth(method = lm , col="red")

这就是我得到的。

它看起来一点都不差，但如何只为geom_smooth中包含的所有点获得一个ggplot？谢谢和亲切的问候!!!