r - 在ggplot2中仅绘制stat_smooth的边界

Question

使用时 stat_smooth() 与 geom_point有没有办法去除阴影拟合区域，但只绘制其外边界？我知道我可以使用以下方法删除阴影区域:

 geom_point(aes(x=x, y=y)) + geom_stat(aes(x=x, y=y), alpha=0)

但是我怎样才能使它的外边界(外曲线)仍然可见为微弱的黑线？

Answer 1

您也可以使用 geom_ribbon与 fill = 不适用。

gg <- ggplot(mtcars, aes(qsec, wt))+
        geom_point() +  
        stat_smooth( alpha=0,method='loess')

rib_data <- ggplot_build(gg)$data[[2]]

ggplot(mtcars)+
  stat_smooth(aes(qsec, wt), alpha=0,method='loess')+
  geom_point(aes(qsec, wt)) +  
  geom_ribbon(data=rib_data,aes(x=x,ymin=ymin,ymax=ymax,col='blue'),
                fill=NA,linetype=1) 

...如果由于某种原因你不想要竖线，你可以只使用两个 geom_line层:

ggplot(mtcars)+
    stat_smooth(aes(qsec, wt), alpha=0,method='loess')+
    geom_point(aes(qsec, wt)) + 
    geom_line(data = rib_data,aes(x = x,y = ymax)) + 
    geom_line(data = rib_data,aes(x = x,y = ymin))