search for: decorate3d

Hej, When plotting triangles with rgl.triangles and setting the axes afterwards with decorate3d(aspect=TRUE), the axes get the color used for the last triangle plotted. Example: rgl.triangles(c(1,2,3),c(1,2,5),c(1,3,2),col="#55FF55") decorate3d(aspect=TRUE) Using decorate3d(aspect=TRUE,col="#000000") or decorate3d(aspect=TRUE,color="#000000") does not hel...

...following code to plot a contour of a trivariate normal distribution: library(mvtnorm) library(rgl) library(misc3d) n=25 x=seq(-3,3,length=n) X=cbind(rep(x,each=n**2),rep(rep(x,each=n),n),rep(x,n**2)) p=array(dmvnorm(X,sigma=diag(3)*0.5+0.5),c(n,n,n)) contour3d(p,x,x,x,level=mean(p)) lim=c(-3,3) decorate3d(xlim=lim,ylim=lim,zlim=lim,xlab="Variable X",ylab="Variable Y",zlab="Variable Z") 1. I know thanks to Luke Tierney (www.stat.uiowa.edu/~luke/R/misc3d/misc3d-pdf/misc3d-pdf.pdf) how to export the 3D plot without the axes and labels with: dummy=function(...){...

Wise people, I have a plot of age, vertebral level and depth of the spinal cord from the skin in children that I can interact with in sculpt3d: sculpt3d(Depth[,4],Depth$LevelNo,Depth$Depth,type="s",radius=.3, alpha=.5) decorate3d(axes=FALSE, box=FALSE,xlab="Age", ylab="Level",zlab="Depth") To make it more intelligible I would like to replace the x, y and z labels with something more meaningful namely "Age", "Level" and "Depth". My problem is that I cannot find a...

...ing to the effect [I do not have the Mac with me at the time]. The script just stops after this error, so I do not know if the rgl or the .Rimage files save properly yet. Thank you for your time, James Thomas # PLOT open3d() dev.new() setwd(...) plot3d(SN_PCA_All, col=rainbow(nrow(SN_PCA_All))) decorate3d(main ="SN_All_Ca") barplot(SN_Scree_All_Percent[,1], main = "SN_All_Ca") savePlot(filename = "01 +S+Na_AllCa_Scree", type ="tiff") rgl.viewpoint(180,0) rgl.snapshot("01 +S+Na_AllCa_PCA.png", fmt="png", top=TRUE ) # [[alternative HTML ver...

Hi Duncan, I've just read the help for the plot3d function you've written and tried out the example code given at the bottom of the page. I then modified the function by adding an aspect ratio of 0.1 and ran it again, which crashed my R. I am using 2.12.2 on Windows, if that tells you anything. Best wishes, Roman

Dear R-experts, Using persp3d(), I plotted a 3d surface. I would like to colour this surface based on the result values (dependent variable) grouped in, say, three to five different ranges. Later, I would also like to paint the same surface based on the range-values of one of the independent variables. Please help. Thank you. Regards, Suresh -- View this message in context:

For a paper dealing with generalized ellipsoids, I want to illustrate in 3D an ellipsoid that is unbounded in one dimension, having the shape of an infinite cylinder along, say, z, but whose cross-section in (x,y) is an ellipse, say, given by the 2x2 matrix cov(x,y). I've looked at rgl:::cylinder3d, but don't see any way to make it accomplish this. Does anyone have any ideas? thx,

...0, nc=3), hl[i,]*var.red), col=col.var) } text3d(hl*var.red, texts=rownames(hl), col=col.var) if(simple.axes) { axes3d(c('x', 'y', 'z')) } else decorate3d(xlab = 'PC1', ylab = 'PC2', zlab = 'PC3', box = box) title3d(xlab = 'PC1', ylab = 'PC2', zlab = 'PC3') } else { require(scatterplot3d) graph = scatterplot3d(cooplot, type = if(spheres) 'p...

...ar) if(simple.axes) { axes3d(c('x', 'y', 'z')) title3d(xlab=paste('PC', lambda.ini, sep=''), ylab=paste('PC', lambda.ini+1, sep=''), zlab=paste('PC', lambda.end, sep='')) } else decorate3d(xlab=paste('PC', lambda.ini, sep=''), ylab=paste('PC', lambda.ini+1, sep=''), zlab=paste('PC', lambda.end, sep=''), box = box) } plot.biplot = function(scores, g,...