如何在R网格::线框图中添加背景网格？

Question

我喜欢在a 3D plot中看到的this article，并且正在尝试使用自己的数据进行复制。

到目前为止，我对通过以下代码获得的剧情感到非常满意：

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))

输出：

但是（我为我的无知事先表示歉意），尽管我确信这是必须的，但我不知道如何在与之相同的框架中将网格包含在三个背板上的每个背板上出现在我最初链接的论文中。可能吗？你会怎么做？