幫助使用rgl包

Question

我使用選項--disable-libpng安裝了rgl包。 我嘗試生成一個三維散點圖，它崩潰了。 請幫我解決這個問題

這是我正在運行的代碼

library(rgl)
open3d()
x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
plot3d(x, y, z, col=rainbow(1000))

它崩潰了下面的消息

 *** caught segfault ***
address (nil), cause 'memory not mapped'

Traceback:
 1: .External(rgl_par3d, args)
 2: par3d(skip)
 3: plot3d.default(x, y, z, col = rainbow(1000))
 4: plot3d(x, y, z, col = rainbow(1000))

Possible actions:
1: abort (with core dump, if enabled)
2: normal R exit
3: exit R without saving workspace
4: exit R saving workspace
Selection:

這是來自sessionInfo（）的信息

    > sessionInfo()
R version 2.11.1 (2010-05-31)
x86_64-unknown-linux-gnu

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=C
 [5] LC_MONETARY=C              LC_MESSAGES=en_US.UTF-8
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C
 [9] LC_ADDRESS=C               LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

other attached packages:
[1] rgl_0.92.798

這是來自sysname命令

x86-64_linux_2.6.16_ImageSLES10SP3-3

更多信息：

我能夠從R中的一些代碼生成表面圖：從x，y，z繪制3D表面

這是代碼

x <- seq(-10, 10, length.out = 50)
y <- x
rotsinc <- function(x,y) {
    sinc <- function(x) {
        y <- sin(x)/x;
        y[is.na(y)] <- 1;
        y
    }
    10 * sinc( sqrt(x^2+y^2) )
}
z <- outer(x, y, rotsinc)

surface3d(x, y, z)

我嘗試了演示（rgl），這也是類似的消息崩潰。 我想生成3d圖，你推薦其他包嗎？ ggplot？

Answer 1

rgl軟件包通過其驅動程序在您的圖形卡中使用可能的硬件加速。

不幸的是，這完全取決於駕駛員。 多年來我一直在使用rgl進行動畫可視化 - 例如，參見2005年的選項分析表面的可視化 - 我可以保證你在某些機器上沒有任何理由而在其他機器上運行並且運行在其他機器上。 在做出任何確定的結論之前，你真的應該嘗試使用不同驅動程序的不同機器。

計算機使用硬件，有時使用硬件。 我可以在我的一台機器上使用你的代碼。 另一個是雙屏幕，因此沒有GL擴展，所以它不會。 我提到硬件咬了嗎？

Answer 2

我在我的系統上測試了完全相同的代碼，它運行得很好。

無論問題是什么，它們都可能已得到修復。

測試1：

library(rgl)
demo(rgl)

測試2：

library(rgl)
open3d()
x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
plot3d(x, y, z, col=rainbow(1000))

我的系統是運行R v2.14.2的Windows 7 x64。 在兩個IDE下測試，即Revolution R和RStudio。