如何在 GGPLOT 中挖掘隐藏的回归线答案

【问题标题】：How to Unearth the Buried Regression Line in GGPLOT如何在 GGPLOT 中挖掘隐藏的回归线
【发布时间】：2013-03-05 12:27:53
【问题描述】：

目前我的回归图如下所示。请注意回归线被深深地掩埋了。

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

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

【问题讨论】：

标签： r plot ggplot2

【解决方案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

【讨论】：

@RicardoSaporta - 我不明白 - 我没有改变颜色，我所做的只是交换 geom_point() 和 geom_smooth() 之间的顺序......这与你给的答案！
非常抱歉。我将“订单”一词误读为“颜色”。我认为这意味着我该睡觉了:)

【解决方案2】：

问题不在于颜色，而在于几何图形的顺序。如果您首先致电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)

【讨论】：

【解决方案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

【讨论】：