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

Question

使用R,我正在使用包的persp3d功能rgl来获得漂亮的3d图.

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

因此,我想问一下,我怎么能这样做？

我需要它们的方式,我可以在乳胶中实现它们,所以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更改视图和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().