Мне понравился 3D-сюжет Я видел в эту статью , и я пытаюсь воспроизвести его с моими собственными данными.
Пока я довольнодовольный сюжетом, я получаю следующий код:
d <- expand.grid(x = seq(0, 20, by = 1),
y = seq(3.5, 5.5, by = .2))
d <- dplyr::mutate(d, z = (5.4 + (-25.5*x) +
(12.5*(x^2)) +
(1.5*y) +
(0.03*y*x) +
(-1.23*y*(x^2))))
lattice::wireframe(z ~ x * y,
data = d,
screen = list(z = 130, x = -70),
scales = list(arrows = F))
Вывод: 
Однако (заранее извиняюсь за свое невежество), хотя я уверен, что это должновозможно, я не могу понять, как включить сетку в каждую из трех задних плоскостей, в том же самом виде, что и в статье, которую я связал в начале.Является ли это возможным?Как бы вы это сделали?