r - 使用 plot3d 在单个绘图窗口中绘制多个 3D 图像

Question

当我使用 plot3d 绘制多个 3D 图像时来自 rgl包，图像单独显示。我想在一个图中显示它们，就像使用时一样，例如 par(mfrow=c(2, 2))在单个绘图窗口中显示四个 2D 图像。

这可能吗？

Answer 1

命令 layout3d 可能有用。也许此代码可以帮助:

 shapes <- list(Tetrahedron = tetrahedron3d(), Cube = cube3d(), Octahedron =  octahedron3d(),
 Icosahedron = icosahedron3d(), Dodecahedron = dodecahedron3d(),
 Cuboctahedron = cuboctahedron3d())
 col <- rainbow(6)
 open3d()

 mat <- matrix(1:4, 2, 2)
 mat <- rbind(mat, mat + 4, mat + 8)
 layout3d(mat, height = rep(c(3, 1), 3), sharedMouse = TRUE)
 for (i in 1:6) {
 next3d()
 plot3d(shapes[[i]], col = col[i])
 next3d()
 text3d(0, 0, 0, names(shapes)[i])
 }

要停用所有实体的旋转，只需设置 sharedMouse = FALSE。