在R中使用rsm在persp之后绘制一条线

install.packages("rsm")

library(rsm)

data <- dataset  # 替换为你自己的数据集
persp(data$x1, data$x2, data$y, theta = 30, phi = 20, col = "lightblue")

lines(c(x1, x2), c(y1, y2), c(z1, z2), col = "red", lwd = 2)

library(rsm)

# 创建数据集（示例）
data <- data.frame(x1 = c(1, 2, 3), x2 = c(4, 5, 6), y = c(7, 8, 9))

# 绘制3D图形
persp(data$x1, data$x2, data$y, theta = 30, phi = 20, col = "lightblue")

# 绘制一条线
lines(c(x1, x2), c(y1, y2), c(z1, z2), col = "red", lwd = 2)