R中的黄土错误，遍布整个地方？

Question

我遇到了适合R.的黄土问题。我使用每个R安装中包含的默认虹膜数据集。然而，当我尝试制作黄土线时，它遍布整个地方。黄土（y~x）的黄土线是红色的，因为我想试验看看我是否错误地排序x和y，黄土线（x~y）是蓝色的。如您所见，这些线条非常明显错误。为什么会这样？我无法解决这个问题。这是代码：

#ignore
library(lattice)
#cloud()

#CODE OF CONCERN BELOW
data <- iris
n<-150
x <- data$Petal.Length
y<-data$Petal.Width
plot(y ~ x)
loess_fit <- loess(y~x)
lines(x, predict(loess_fit), col = "blue")

以下是我得到的图片：

Answer 1

您需要在使用黄土之前订购积分。

x <- sort(data$Petal.Length)
y<-data$Petal.Width[order(data$Petal.Length)] 
plot(y ~ x)
loess_fit <- loess(y~x)
lines(x, predict(loess_fit), col = "blue")