如何使用stat_smooth将CI限制截断到绘图的y范围

Question

我正在尝试使用stat_smooth()在拟合线周围绘制置信区间，例如：

Days <- c(rep(0,2),rep(10,4))
Resp <- c(1020, 955, 1599, 1220, 1264, 1273)
DummySet <- as.data.frame(cbind(Days,Resp))

a <- ggplot(data=DummySet, aes(Days, Resp))
a <- a + stat_smooth(method="lm", formula = y ~ x)
a

没关系，但在限制y轴范围时遇到2个问题。首先，CI着色在y限制中断（而不是截断）：

a <- a + ylim(c(800,1600))

其次，如果某些点在y范围之外，它们似乎被忽略用于计算（这里似乎忽略了1599）：

a <- a + ylim(c(800,1400))

相反，我希望看到的内容与第一张图片中的内容相同，只是截断了CI：

问题可能与stat_smooth（）无关，但与ggplot2的一般误解有关，我是新手。任何提示都将不胜感激。