在R中的交互式三维图形上绘制趋势线(而不是平面或平滑表面)

install.packages("rgl")  # 安装rgl包
library(rgl)  # 加载rgl包

x <- c(1, 2, 3, 4, 5)  # x轴数据
y <- c(2, 4, 6, 8, 10)  # y轴数据
z <- c(3, 6, 9, 12, 15)  # z轴数据

plot3d(x, y, z, type = "s", col = "blue", size = 2)  # 创建三维散点图

fit <- lm(z ~ x + y)  # 拟合趋势线
x_pred <- seq(min(x), max(x), length.out = 100)  # 生成预测的x值
y_pred <- seq(min(y), max(y), length.out = 100)  # 生成预测的y值
z_pred <- predict(fit, newdata = expand.grid(x = x_pred, y = y_pred))  # 预测的z值

lines3d(x_pred, y_pred, z_pred, col = "red", lwd = 2)  # 添加趋势线