R gWidgets embed a “rgl” 3D plot in gWidgets2 ggra

2019-08-09 22:02发布

问题:

Can I embed a "rgl" 3D plot in gWidgets2 ggraphics device? For example,

library(gWidgets2)
library(rgl)

w <- gwindow("brushing example", visible=FALSE)
g <- ggroup(cont=w)
pg <- gnotebook(cont=g, expand=TRUE)
dev1 <- ggraphics(cont=pg)

visible(w) <- TRUE

visible(dev1) <- TRUE   
plot.new()  

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

Can I put the 3D plot inside the gnotebook window?

标签: r gwidgets