У меня есть хорошая поверхность, которая представляет результаты нелинейной многочастичной регрессии с двумя независимыми переменными. Я хотел бы построить прогнозируемые значения регрессии в виде красивой трехмерной поверхности, а затем показать фактические значения в виде точек, которые отражаются от поверхности. Это будет трехмерная версия построения линии регрессии и отображения фактических значений в виде точек вокруг линии. Я не могу понять, как это сделать с решеткой. Я счастлив использовать другую графическую библиотеку в R, но я не знаю других, которые делают 3D-графики.

Вот упрощенная версия того, что я хочу сделать:

library(lattice)
#set up some simplified data
x <- seq(-.8, .8, .1)
y <- seq(-.8, .8, .1)
myGrid <- data.frame(expand.grid(x,y))
colnames(myGrid) <- c("x","y")
myGrid$z <- myGrid$x + myGrid$y
noise <- rnorm(length(myGrid$z),.3,.2)
myGrid$z2 <- myGrid$x + myGrid$y + noise

z - моя гладкая поверхность, а z2 - мои шумные точки, в основном немного выше поверхности. Итак, поверхность выглядит так:

wireframe(myGrid$z ~ myGrid$x * myGrid$y, xlab="X", ylab="Y", zlab="Z")

и облако точек выглядит так:

cloud(myGrid$z2 ~ myGrid$x * myGrid$y, xlab="X", ylab="Y", zlab="Z")

Возможно ли получить оба из них в одной решетчатой панели?