如何使用htmltools中的tagList在网格中排列RGL 3d图？

Question

从this answer我已经能够在循环中生成rgl个3d对象（特别是来自scatter3d包的car）并将其作为html输出到我的{{ 1}}文件。但是，我发现图像以垂直条带显示。我想平铺它，例如使用链接答案中的代码，我想将图像排列成2x2网格（而不是现在的4x1）：

Answer 1

我猜你必须创建一个HTML表并将rglwidget()结果放入其中。这段代码可以做到：

browsable(tag("table", 
    tagList(tag("tr", 
        tagList(tag("td", 
                    tagList(rglwidget(width=200))), 
                tag("td",
                    tagList(rglwidget(width=200))))))))

但显然你想要努力让它变得可用。

这篇文章：htmlwidgets side by side in html?描述了一种使用CSS的不同方法。

我要做的是使用mfrow3d(2,2)将图表全部放入一个小部件中，例如

xyz <- matrix(rnorm(3000), ncol = 3)
mfrow3d(2,2)
for (i in 1:4)
  plot3d(xyz, col = i)
rglwidget()