网格线panel.3d.cloud格子R

Question

参考this问题，我想在x-z平面上添加分隔不同条形的网格线。

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

我不知道在哪里指定网格。如何将其添加到x-z平面，以使每条线在轴刻度标签之间延伸？

是否有其他功能/包可以在R中绘制3D条形图？