search for: ltransform3dto3d

...#39;t know, works :), 3dscatter not wire] panel.3d.contour <- function(x, y, z,rot.mat, distance, zlim.scaled,nlevels=20,...) { add.line <- trellis.par.get("add.line") clines <- contourLines(surf[[packet.number()]],nlevels = nlevels) for (ll in clines) { m <- ltransform3dto3d(rbind(ll$x-.5, ll$y-.5, zlim.scaled[1]), rot.mat, distance) panel.lines(m[1,], m[2,], col = add.line$col, lty = add.line$lty, lwd = add.line$lwd) } panel.3dscatter(x, y, z, rot.mat, distance, zlim.scaled = zlim.scaled, ...) } cloud(z~x+y|g,data=d,layout=c(2,1), typ...

...d cloud using lattice. I can project contour lines following the code for fig 13.7 in Deepayan Sarkar's "Lattice, Multivariate Data Visualization with R", but it fails when I try to "color them in" using panel.levelplot. ?utilities.3d says there may be some bugs, and I think ltransform3dto3d() is not precise (where did I hear that?), but is this really the source of my problem? Is there a (simple?) workaround, maybe using 3d.wire but projecting it to XY? How? Please, any insight may be useful. Thanks in advance, Elai. A working example: ## data "d" and predicted "sur...

Hi, I have an array of 2d node locations and an array triangles, and would like to plot something like a image or persp. An example of doing it with rgl is: library(ncdf) library(rgl) # wget http://www.maplepark.com/~drf5n/extras/teapot.nc teapot<-open.ncdf("teapot.nc") z<-get.var.ncdf(teapot,"tris") l<-get.var.ncdf(teapot,"locations")

I am interested to know how to make for clouds: - aspect ratio = 1 - labels attached to points - vertical lines from the points to the x/y base plane I tried: t = c( 'A', 'B', 'C', 'D' ) x = c( 100, 0, 200, 100 ) y = c( 0, 100, 0, 100 ) z = c( 80, 0, 20, 40 ) q = data.frame( x, y, z ) rownames( q ) = t print(cloud( z ~ x *

...<- trellis.par.get("add.line") panel.3dwire(x, y, z, rot.mat, distance, zlim.scaled = zlim.scaled, ...) clines <- contourLines(x, y, matrix(z, nrow = length(x), byrow = TRUE), nlevels = nlevels) for (ll in clines) { m <- ltransform3dto3d(rbind(ll$x, ll$y, zlim.scaled[1]), rot.mat, distance) panel.lines(m[1,], m[2,], col = add.line$col, lty = add.line$lty, lwd = add.line$lwd) } } wireframe(z~x+y, da, drape=TRUE, scales=list(arrows=FALSE),col.regions=jet.colors(100),panel.3d.w...

Dear R community, I have one problem with figures. I draw the Relative Distribution graph, it looks like barchart(X,Y plot), but I have ten(year) Relative Distribution grapgs, have any command am can combine ten barcharts(X,Y plot) to become a three dimensions barchart(X,Y,Z plot)? All help highly appreciated Best, Yichih One Relative Distribution graph:

Hello, The following code produces a quadrilateral: q<-matrix(c(1,3,1,2,3,1,2,4,2,1,4,2),nrow=4,byrow=T) qc<-xyz.coords(q) wireframe(z~y*x,qc) I have 2 questions 1) How can i remove the bounding box i.e the cube encompassing the quadrilateral? 2) Is there any function to get the 2D coordinates of the quadrilateral actually used in the final plot ? I could manually

Hello folks, i'm a R beginner and i want to put in a same plot both contour lines and persp plot. For example, fn<-function(x,y){sin(x)+2*y} #this looks like a corrugated tin roof x<-seq(from=1,to=100,by=1) #generates a list of x values to sample y<-seq(from=1,to=100,by=1) #generates a list of y values to sample z<-outer(x,y,FUN=fn) #applies the funct. across the combos of x

I am working on plotting a response surface using wireframe(). The default style/orientation is z | | y | \ | \ | \ | \ | \ | \ | \ | \|________________x 0 Now what I want the orientation of axes is: z | | | |