如何使预测间隔覆盖没有数据点的区域

Question

我正在尝试在ggplot中绘制线性模型的预测间隔。

按照其他网站上的说明，我写了以下内容 代码：

model1 <- lm(rate ~ conc, data=origin)
temp_var <- predict(model1, interval="prediction")
new_df <- cbind(origin, temp_var)

ggplot(data = new_df, aes(x = conc, y = rate))+
geom_line(data=plot, aes(x=x, y=y, group=group)) +
geom_point(color="#2980B9", size = 0.5) +
geom_line(aes(y=lwr), color = "#2980B9", linetype = "dashed")+
geom_line(aes(y=upr), color = "#2980B9", linetype = "dashed")

由于我要预测数据范围之外的值（蓝点），因此我 想扩展预测范围。但是问题是“ lwr”和 由预测函数生成的“ upr”仅在我的数据中提供值 范围，如下图所示。

有什么办法可以扩大预测范围吗？

非常感谢您的帮助。