Question

我的数据有200个变量，我运行了预测间隔，现在我试图用我的数据绘制它。我目前的问题是xy.coords（x，y）中的错误：＆＃39; x＆＃39;并且＆＃39; y＆＃39;长度不同。我在这里看了很多解决方案，没有解决我的问题。

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)

Answer 1

即使我尝试了这个，我也让它发挥作用，因此对于那些可能也在苦苦挣扎的人来说，这是个答案。

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)

在R studio中绘制lwr和upr预测间隔到数据

1 个答案: