不能用rgl R包的plot3d()函数绘制rglscene对象

Question

我遇到了R包rgl (版本0.95.1441)的问题，特别是，我无法从scene3d rgl函数文档的示例部分复制代码：

http://www.inside-r.org/packages/cran/rgl/docs/plot3d.rglscene

在Windows 8下，我使用的是3.2.4版本的R和R 0.99.892。

open3d()
z <- 2 * volcano        # Exaggerate the relief
x <- 10 * (1:nrow(z))   # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z))   # 10 meter spacing (E to W)
persp3d(x, y, z, col = "green3", aspect = "iso")

s <- scene3d()
# Make it bigger
s$par3d$windowRect <- 1.5*s$par3d$windowRect
# and draw it again
plot3d(s)

在调用persp3d函数之后，我能够生成一个3D图像，并且能够将rglscene对象保存到变量s中。但是，在执行当前清单的最后一个字符串之后，出现了一个非常窄的窗口，无法查看它是否包含任何内容。我怎么才能修好它？

Answer 1

在s中没有par3d组件，它是s$rootSubscene的一部分。(这不是文件记载的方式，而是事实。)

如果你想把场景的大小翻一番，你需要改变两件事: windowRect和视口。所以这对我来说很管用：

open3d()
z <- 2 * volcano        # Exaggerate the relief
x <- 10 * (1:nrow(z))   # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z))   # 10 meter spacing (E to W)
persp3d(x, y, z, col = "green3", aspect = "iso")

s <- scene3d()
# Make it bigger
par3d <- s$rootSubscene$par3d
par3d$windowRect <- 1.5*par3d$windowRect
par3d$viewport <- 1.5*par3d$viewport
s$rootSubscene$par3d <- par3d

# and draw it again
plot3d(s)