Как добавить фоновые сетки в R решетку:: каркасный график?

Question

Мне понравился 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))

Выход:

Однако (я заранее прошу прощения за свое невежество), хотя я уверен, что это должно быть возможно, я не могу понять, как включить сетку на каждой из трех задних плоскостей, в тот же фасон, что и в бумаги я связал в начале. Является ли это возможным? Как бы Вы это сделали?