r - 如何挖掘GGPLOT中隐藏的回归线

Question

目前我的回归图看起来像这样。请注意
回归线被深埋。

有什么办法可以在这里修改我的代码，以将其显示在点之上？
我知道我可以增加大小，但它仍然在点的下方。

p <- ggplot(data=my_df, aes(x=x,y=y),) +
     xlab("x") +
     ylab("y")+
     geom_smooth(method="lm",se=FALSE,color="red",formula=y~x,size=1.5) +
     geom_point()
p

Answer 1

只需更改顺序:

p <- ggplot(data=my_df, aes(x=x,y=y),) +
     xlab("x") +
     ylab("y")+
     geom_point() +
     geom_smooth(method="lm",se=FALSE,color="red",formula=y~x,size=1.5)
p