r - ggplot geom_smooth 排除负值

Question

我正在尝试使用排除负值的 ggplot2 geom_smooth 绘制具有标准误差 (se) 的线性回归。不幸的是，使用 scale_y_continuous 会截断部分标准错误填充。如何让se fill区域顺利结束在y=0？

参见示例(使用 y=10 而不是 y=0，但过程相同):

ymax<-max(mtcars$mpg)
myplot<- ggplot(data=mtcars, aes(x=wt, y=mpg)) +  
geom_smooth(method=lm,   se=TRUE,fill = "#3399FF", colour="#0000FF",size =1)  +
geom_point(shape=20, size=2) +
scale_y_continuous(limits = c(10, ymax)) 
suppressMessages(print(myplot))  

我希望我可以发布图表，但我刚刚加入堆栈溢出并且没有足够的声誉点来发布图像。该图显示回归线按预期在 y=10 处结束，但是 se 填充以垂直边缘结束(不与应排除 se 下面的线水平)。谢谢，抱歉我不能发布图片 :)

Answer 1

对于新版本的 ggplot，我们现在需要:

 scale_y_continuous(limit=c(10,NA),oob=squish)