如何在xyplot / panel函数中使用predict？

# 加载所需的包
library(lattice)

# 创建一个数据集
x <- 1:10
y <- x^2
dataset <- data.frame(x, y)

# 创建散点图
xyplot(y ~ x, data = dataset,
       main = "Scatter Plot with Predicted Line",
       xlab = "X", ylab = "Y",
       type = c("p", "g"))

# 在panel函数中使用predict
panel <- function(x, y, ...) {
  panel.xyplot(x, y, ...)
  
  # 创建线性模型
  lm_model <- lm(y ~ x, data = dataset)
  
  # 生成预测值
  predicted_values <- predict(lm_model, newdata = data.frame(x = x))
  
  # 添加预测线
  panel.lines(x, predicted_values, col = "red")
}

# 添加panel函数到xyplot中
xyplot(y ~ x, data = dataset, panel = panel)