使用rsm软件包，我试图在绘图中结合透视图和等高线，以在其上投影估计的分数。
我已经成功地将透视图与其相应的轮廓组合在一起，但是我找不到如何在轮廓表面上添加估计分数的方法。
这是我的代码：
library (rsm)
set.seed(123)
x1 <- sample(seq(from = 1, to = 5), size = 50, replace = TRUE)
x2 <- sample(seq(from = 1, to = 5), size = 50, replace = TRUE)
gpa <-sample(seq(from = 1, to = 20), size = 50, replace = TRUE)
My_model <- rsm(gpa ~ SO(x1, x2))
summary(My_model)
persp (My_model, x2 ~ x1, contour=list(col="col", lwd=1),
theta = -25, phi = 15,zlab = "Gpa", main="Second-order
model")
因此，我想做的是生成一个图形，该图形将显示轮廓上每个区域内的估计分数。我感谢大家的考虑。