I created some 3D cubes by using "rgl" package. The next step is to embed the 3D plot("rgl" device) into "ggraphics" device from the "gWidgets" package, but I have no idea how to implement it. Is there a way to implement by "gWidgets" or other package? Any help? Thank you in advance!
My code: library(rgl) library(scatterplot3d) library(gWidgets) options(guiToolkit="RGtk2") df<-data.frame(x=c(1,2,3,4), y=c(2,4,6,8), z=c(3,6,9,12), value=c(33,43,75,21)) clr <- df$value/max(df$value) f <- colorRamp(c("green", "yellow", "purple", "red")) ## 3D PLOT for(i in 1:length(df$x)){ shade3d(translate3d(scale3d(cube3d(col=rgb(f(clr[i])/255),alpha=0.15 ), 10.0, 10.0, 2.5),df$x[i],df$y[i],df$z[i])) } window <- gwindow("TEST", width = 800, height= 600, visible = FALSE) group <- ggroup(cont = window, expand = TRUE) loadBtn <- gbutton("display", cont = group) addHandlerChanged(loadBtn, handler = function(h,...){ sudwin<-gwindow("3D",visible = TRUE) dev <- ggraphics(cont=subwin) #### DO NOT KNOW HOW TO DO NEXT... }) visible(window)<-TRUE ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.