R：绘制置信区间问题

我试图用一个函数来绘制回归的置信区间，但我的上下预测区间的线条看起来奇怪而模糊。谁能发现这个问题，因为我似乎找不到任何错误

代码如下：

drawPrediction <- function(x, y) {

  lm.model <- lm(y ~ x)
  ci <- predict(lm.model, interval = "prediction")
  plot(x,y)
  abline(lm.model, col = "red")
  lines(x, ci[,2], lty = 2, col = 'blue')
  lines(x,ci[,3], lty = 2, col = 'blue' )

}

---

drawPrediction问题在于x没有被排序，所以你在整个地方画线，而不仅仅是在连续的x之间。相反，使用

lm.model <- lm(Income ~ Illiteracy, data=as.data.frame(state.x77))
  ci <- predict(lm.model, interval = "prediction")
  plot(x,y)
  abline(lm.model, col = "red")
  lines(sort(x), ci[order(x),2], lty = 2, col = 'blue')
  lines(sort(x), ci[order(x),3], lty = 2, col = 'blue' )

lm.model您好，很抱歉我添加了测试数据的来源。我认为，随着代码应该是足够的复制？是的！谢谢你，我刚开始意识到这是个问题。非常感谢你！
lm.model <- lm(Income ~ Illiteracy, data=as.data.frame(state.x77))
  ci <- predict(lm.model, interval = "prediction")
  plot(x,y)
  abline(lm.model, col = "red")
  lines(sort(x), ci[order(x),2], lty = 2, col = 'blue')
  lines(sort(x), ci[order(x),3], lty = 2, col = 'blue' )