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

Answer 2

問題は色ではなく、geomの順序です。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)

---

Answer 3

透明点はどうですか？

library(ggplot2)
seed=616
x1<- sort(runif(rnorm(1000)))
seed=626
x2<- rnorm(1000)*0.02+sort(runif(rnorm(1000)))
my_df<- data.frame(x= x1, y = x2)
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(size = I(2), alpha = I(0.1))
p