R行函数中的参数

Question

我想用不同的颜色和图例将97%的置信区间和预测区间绘制到我的其他图中。我希望它们在散点图上用直线表示。

请原谅我，因为我是R的新手，所以任何关于如何表达这个问题的技巧都会很有帮助！

我搞不清楚在线性函数中输入什么作为x和y坐标我试图输入a和m来匹配，但它创建了一个非常奇怪的复杂图形，我确信这是不正确的，你介意解释一下我应该在下面代码中输入HELP的地方放什么吗？

attach(my_data)
plot(a, m,
xlab="a", ylab = "m",
main = "Confidence intervals and prediction intervals",
ylim = c(10,50))
abline(lm.fit,lwd=5,col='pink')
p_pred <- predict(lm.fit,data.frame(a=c(14.50)),interval="prediction",level=0.97)
p_conf <- predict(lm.fit,data.frame(a=c(14.50)),interval="confidence",level=0.97)
lines(HELP,p_conf[,"lwr"], col="red", type="b", pch="+") 
lines(HELP,p_conf[,"upr"], col="red", type="b", pch="+")
lines(HELP,p_pred[,"upr"], col="blue", type="b", pch="*")
lines(HELP,p_pred[,"lwr"], col="blue", type="b", pch="*")
legend("bottomright",
pch=c("+","*"),
col=c("red","blue"),
legend = c("confidence","prediction"))

我相信这个问题的解决方案很简单，所以我很抱歉，因为如果我问一个简单的问题，我对R不太熟悉！

Answer 1

如果你只想绘图，你不需要自己计算预引用，但你可以使用ggplot2库中的geom_smooth。如以下示例所示：

library(ggplot2)
ggplot(mtcars, aes(mpg,cyl))+
geom_point()+
geom_smooth(method = "lm", level =0.97)

Answer 2

感谢您在页面上的建议！实际上，我最终通过创建一个新的变量来解决这个问题，该变量取x变量的最小值和最大值，然后将线拟合在图上。