How to Unearth the Buried Regression Line in GGPLOT

Question

Currently my regression plot looks like this. Notice that the regression line is deeply buried.

Is there any way I can modify my code here, to show it on top of the dots? I know I can increase the size but it's still underneath the dots.

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

Just change the order:

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

Answer 2

The issue is not the color, but the order of the geoms. If you first call geom_point() and then geom_smooth() the latter will be on top of the former.

Plot the following for comparison:

Before <- 
  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()

After <- 
  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)

---