Линии сетки панель.3d.cloud решетка R

Question

Обращаясь к этому вопросу, я хотел бы добавить линии сетки на плоскости xz, которые разделяют различные бары.

d <- read.table(text=' x   y     z
t1   5   high
t1   2   low
t1   4   med
t2   8   high
t2   1   low
t2   3   med
t3  50   high
t3  12   med
t3  35   low', header=TRUE)

library(latticeExtra)

cloud(y~x+z, d, panel.3d.cloud=panel.3dbars, col.facet='grey', 
  xbase=0.4, ybase=0.4, scales=list(arrows=FALSE, col=1), 
  par.settings = list(axis.line = list(col = "transparent")))

Я не знаю, где указать сетку.Как я могу добавить его в плоскость xz, чтобы каждая строка проходила между метками галочки оси?

Есть ли альтернативные функции / пакеты для рисования 3D-графика в R?