根据R studio中的数据绘制lwr和upr预测间隔

我的数据有200个变量，我运行了预测区间，现在我试图用我的数据绘制它。我当前的问题是xy.coords（x，y）中的错误：'x'和'y'长度不同。我在这里看到了很多解决方案，但没有一个解决了我的问题

attach(data)

fitreg<-lm(Temp~Humidity,data=data)
xstar<-seq(min(data$Humidity),max(data$Humidity),length.out = 100)
new= data.frame(Humidity=xstar)
pi<-predict(fitreg,newdata = new, interval="predict", level = 0.95)

plot(Temp~Humidity, xlab="Humidity", ylab="Temperature", main="Regression")
abline(fitreg, col="lightblue")



lines(new, pi[,2], col="orange", lty=2)
lines(new, pi[,3], col="orange", lty=2)

附加（数据）
fitreg即使我尝试了这个，我还是让它发挥了作用，因此，这是任何可能也在挣扎的人的答案

attach(data)

fitreg<-lm(Temp~Humidity,data=data)
xstar<-seq(min(data$Humidity),max(data$Humidity),length.out = 200)
#length change to match number of variables 
new= data.frame(Humidity=xstar)
pi<-predict(fitreg,newdata = new, interval="predict", level = 0.95)

lower<-pi[,2]
upper<-pi[,3]

plot(Temp~Humidity, xlab="Humidity", ylab="Temperature", main="Regression")
abline(fitreg, col="lightblue")



lines(xstar, lower, col="orange", lty=2)
lines(xstar, upper, col="orange", lty=2)

附加（数据）
菲特雷格