ggplot中的geom_smooth会导致绘图背景的一部分改变颜色

Question

如何在绘制以下数据时避免绘图区域的灰色阴影？

df <-data.frame(x = c(0,0.2,0.5), y = c(0.6,0.7,0.9))

p <-ggplot(df, aes(x, y, ymin=0, ymax=1, xmin=0, xmax=1))

p <- p + geom_point(alpha=2/10, shape=21, 
                fill="blue", colour="black", size=5)

p

直到这一点为止，但是使用geom_smooth添加线方程会导致背景的一部分变为灰色。

p <- p + geom_smooth(method="lm", se=FALSE, formula=y~x, colour="black")
p

有关如何避免这种情况的任何建议？感谢。

Answer 1

将fill=NA添加到geom_smooth来电：

p + geom_smooth(method="lm", se=FALSE, formula=y~x,colour="black",fill=NA)