Cách khai quật đường hồi qui chôn trong GGPLOT

Question

Hiện tại âm mưu hồi quy của tôi trông như thế này. Lưu ý rằng đường hồi qui được chôn sâu.

Có cách nào để tôi có thể sửa đổi mã của mình ở đây không, để hiển thị mã trên đầu các chấm? Tôi biết tôi có thể tăng kích thước nhưng nó vẫn ở dưới các chấm.

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

Chỉ cần thay đổi thứ tự:

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

Vấn đề không phải là màu sắc, nhưng trật tự của geoms. Nếu trước tiên bạn gọi geom_point() và thìgeom_smooth() địa chỉ thứ hai sẽ nằm trên đỉnh cũ.

Lô sau để so sánh:

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

Làm thế nào về điểm minh bạch?

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