3

使用 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保存到我的驱动器中吗？

4

3 回答 3

5

这是使用功能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().

于 2013-08-05T20:33:45.233 回答
4 
x=1:10
y=1:10
z=matrix(runif(100),10,10)
persp3d(x,y,z,theta=50,phi=25)

然后循环theta或phi，使用view3d设置角度，使用snapshot3d制作PNG

theta = seq(0,360,len=10)
for(i in 1:10){
 snapshot3d(file=paste0("spin-",i,".png"))
 view3d(theta=theta[i])
}

您可能想要循环 phi 而不是 theta。无论如何，这会让你得到你想要的PNG，不是吗？

于 2013-08-05T18:41:05.873 回答
3

可能有人需要。我对 persp3Drgl 使用了以下组合：

userMat = matrix(data = c( 0.4892255, 0.8709987, 0.04464279, 0,
                       -0.5228708, 0.2519508, 0.81430787, 0,
                       0.6980215, -0.4217298, 0.57868713, 0,
                       0.0000000, 0.0000000, 0.0000000, 1
                       ), nrow = 4, ncol = 4)

persp3Drgl(..., userMatrix = userMat )
par3d( windowRect=c( 0,0,100,100 ) )
snapshot3d( file.path(plotDir, "3D.png"), top = TRUE )

此外，我曾经使用以下命令跟踪userMatrix值（通过鼠标旋转绘图后）

userMat = par3d(no.readonly=TRUE)$userMatrix
于 2015-10-28T15:42:44.690 回答