旋转 persp3d 绘图并将图像保存为 png

Question

对于 R，我使用的是 persp3d rgl的功能包以获得漂亮的 3d 图。

现在我想旋转 persp3d函数并将每个旋转的小图像保存为 png 文件。然后我想使用命令 animategraphic 在我的 latex 演示文稿中包含 png .

因此，我想询问，我该怎么做？

我需要它们以一种可以在 latex 中实现它们的方式，所以 png 文件的名称应该以某种方式类似于 a1、a2 等等......

我创建 persp3d 图的代码是:

persp3d(x, y, z, theta=50, phi=25, expand=0.75, col=color[zcol2],
        ticktype="detailed", xlab="", ylab="", zlab="",axes=FALSE)

然后我尝试用 spin3d 旋转它命令:

spind3d(rpm=3)

这不起作用。这也不会将 png 保存到我的驱动器中？

Answer 1

这是使用函数 spin3d 的替代方法更改 View ，和 movie3d保存图像。

library(rgl)
x <- seq(-10, 10, length= 30)
y <- x
f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
z <- outer(x, y, f)
z[is.na(z)] <- 1
persp3d(x,y,z,theta=0,phi=25, col = "lightblue",
        ticktype="detailed", xlab="", ylab="", zlab="",axes=FALSE)
movie3d(spin3d(axis = c(0,0,1), rpm = 10), duration=6,  type = "png")

请注意，默认情况下 movie3d将文件保存在 tempdir() 设置的文件夹中.