r - 在r中将标签添加到mosaic3d绘图的问题

Question

如果我使用基于以下示例的简单 2d 马赛克（）函数，我可以看到标签。

labs <- round(prop.table(Titanic), 2)
mosaic(Titanic, pop = FALSE)
labeling_cells(text = labs, margin = 0)(Titanic)

但是，如果我尝试将其更改为，mosaic3d那么所有标签都会消失，并且我会看到一些黑点。非常感谢任何有关如何向镶嵌 3d 绘图添加标签的帮助。