如何在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

Answer 2

问题不是颜色,而是geoms 的顺序.如果你第一次打电话geom_point(),那么 geom_smooth() 后者将在前者之上.

绘制以下内容进行比较:

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)