R 如何使预测区间覆盖无数据点区域

我试图在ggplot中绘制线性模型的预测区间

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

---

model1我认为您可以通过
expand.grid
实现这一点。您的示例并非完全可复制，因此这在某种程度上是猜测。我认为您需要的是
newdata
在
predict
中进行论证，它告诉predict应该对哪些数据进行预测。这段代码将为您提供从0到1的预测：
temp\u var我认为您可以通过
expand.grid
实现这一点。您的示例并非完全可复制，因此在某种程度上这是猜测。我认为您需要的是
newdata
在
predict
中进行论证，它告诉predict应该对哪些数据进行预测。此代码将为您提供0到1范围内的预测：
temp\u var
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")