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

Question

通过this answer，我能够在循环中生成rgl 3d对象(特别是来自car包的scatter3d )，并在我的knitr文档中将其输出为html。然而，我发现图像是以垂直条带显示的。我想平铺它，例如使用链接答案中的代码，我想将图像排列成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()