search for: drape

Hi, *Warning: R newb here. * I've got a 3D scatterplot ( http://www.fleetwoodswoodworks.com/scatterPlot.jpg) which I want to drape in color, with the draped plane corresponding to the mean z values on the plot (similar to: http://www.fleetwoodswoodworks.com/draped3Dscatterplot.jpg). Does anyone know what package will allow me to do this? I used * scatterplot3d()* for my first plot. I've tried doing a *persp()* plot and dra...

Hello R, According to: g <- expand.grid(x = 1:10, y = 5:15, gr = 1:2) g$z <- log((g$x^g$g + g$y^2) * g$gr) wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows = FALSE), drape = TRUE, colorkey = TRUE, screen = list(z = 30, x = -60)) i have two wireframes in one plot. How could i change the color of the top - one to transparent (or only the grid). I want to give insight to the lower layer. Could one make an if-statment like (if gr==1 do drape=F or color=none)...

...tAll.pdf", width = 5, height = 5) trellis.par.set("plot.line", list(lwd=0.15)); top.left <- wireframe(post1, xlab=list("p(adj-N)", cex=.7, rot=30),ylab=list("p(num-N)", cex=.7, rot=-45),zlab=list("posterior", cex=.7, rot=90),col.regions=newcols(100), drape=TRUE,colorkey=TRUE, lwd=0.15, zoom=1, scales = list(z = list(distance = 0.5), x = list(distance = 0.5), y = list(distance = 0.5))); top.right <- wireframe(post2, xlab=list("p(adj-N)", cex=.7, rot=30),ylab=list("p(num-N)", cex=.7, rot=-45),zlab=list("posterior", cex...

Sorry sending this again - is anyone familiar with multiple transparent wireframe plots? I already checked the ?wireframe, but with no examples and as newcommer its hard to find out a correct code. If we set drape=F in the example: g <- expand.grid(x = 1:10, y = 5:15, gr = 1:2) g$z <- log((g$x^g$g + g$y^2) * g$gr) wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows = FALSE), drape = F, colorkey = TRUE, screen = list(z = 30, x = -60)) you get a two color pic...

I have source a script running with no errors that ends in these lines: ============== for (i in 2:3) win.graph() dev.set(2) levelplot(avg ~ procs * size, rrt, drape=T, colorkey=T,main="ops/sec",scales=list(x=list(tick.number=15),y=list(log=10))) dev.set(3) levelplot(avg ~ procs * size, ort, drape=T, colorkey=T,main="ops/sec",scales=list(x=list(tick.number=15),y=list(log=10))) ============= The graphics devices windows appear, however, there...

...e same resolution (both have the same number of rows and columns) as the DEM. More specifically I would like to plot a DEM using wireframe and color each cell/tile based on interpolated surface temperature measurements. Within the wireframe function, the arguments "color.regions", "drape" and "at" seemed most important to accomplish this. However, I have not been successful. Below is another explanation with some example data. ### #say we have a matrix DEM=matrix(1:100, ncol=10) #we also have a matrix of interpolated temperatures measurements (or any other kind...

Hello, hopefully simple question, but I cannot find the answer. I need to change the color from the standard default. Still want the scaled colors, but need different colors for different graphs. Code is: wireframe(z ~ y*x, mat.df, drape = TRUE, zlab = list("Water mass error (%)",rot=92), zlim=c(-50,180), xlab = list("Resistance error (%)",rot=16), ylab = list("Length error (%)",rot=118), scales = list(arrows = FALSE), screen = list(z = 20, x = -57, y = 5))...

Hi, I want to draw a figure similar to http://dsarkar.fhcrc.org/lattice/book/images/Figure_13_07_stdBW.png from http://lmdvr.r-forge.r-project.org/figures/figures.html (figure 13.7) . However instead of using a contour plot as a panel for the wireframe I want to use a levelplot. Can somebody help me with this? Thanks in advance for any help, Kind regards, Anton Bossenbroek

...s(z)<- rep(c("X1","X2","X3","X4","X5","X6"),6) meanz=colMeans(z) mat.x <- matrix(meanz, nrow=6, ncol=6, byrow=TRUE) colnames(mat.x)<- c(0,1,2,3,4,5) rownames(mat.x)<-c(0,5,10,15,20,25) mat.x library(lattice) wireframe(mat.x,drape=TRUE,zlab=list("Proportion Error of Estimate", rot=90), xlab="Resistance Error (%) ",ylab="Length Error (%)",scale=list(arrows=FALSE)) detach(z) detach(sen) -- Keith Cox, Ph.D. Sitka Sound Science Center Fisheries Biologist P.O. Box 464 Sitka, Alaska, 99835 907 752...

...rint expressions in wireframe plots? I'm using the same code I use for other plots, but can't seem to get Greek letters in the plots. E.g., xlabstr <- expression(rho); .... print(wireframe(z ~ p1 * p2, data=data, zoom=zoom, drape = drape, perspective = perspective, colorkey = colorkey, xlab=xlabstr, ylab=ylabstr, zlab=zlabstr, scales = scales, distance= distance, scr...

...ats a data frame object created using "data.frame" vs. using "expand.grid". For instance, this works: reggrid <- expand.grid(u=1:10,v=1:10) reggrid$z <- runif(100) reggrid <- data.frame(reggrid) is.data.frame(reggrid) wireframe(z~u*v,reggrid,scales=list(arrows=FALSE),drape=TRUE,colorkey=TRUE) but this does not: u <- c(1:100) v <- mat.or.vec(100,1) ij=0 for(i in 1:10) { for(j in 1:10) { ij=ij+1 v[ij]=j } } z <- runif(100) reggrid <- data.frame(u,v,z) is.data.frame(reggrid) wireframe(z~u*v,reggrid,scales=list(arrows=FAL...

...c(1, 2), pty = ''s'') # marginales -- OK! plot(x, z, las = 1, ylab = ''f(x, y)'') plot(y, z, las = 1, ylab = ''f(x, y)'') # con lattice -- no veo nada! require(lattice) # no plot wireframe(z ~ x*y, data = dd, scales = list(arrows = FALSE), drape = TRUE, colorkey = TRUE, col = 1, zlim = c(0.9, 1.2)) # con scatterplot3d -- si aparece! require(scatterplot3d) # plot par(mfrow = c(1,1), pty = ''s'') scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis=1, col.grid=1,pch=20) # otro ejemplo con lattice -- si funciona! wiref...

...ects()) library(lattice) for(i in 1:4){ output_file_path<-paste("~/Desktop/test_",i,".png",sep="") x<-rep(seq(-3,3,length=50),50) y<-rep(seq(-3,3,length=50),each=50) z<-x*y+10*i trellis.device(png,color=F,file=output_file_path) print(wireframe (z~x*y,drape=T,distance=0,zoom=0.84,cuts=100,col.regions=gray (100:400/400),colorkey=list(tick.number=6))) #print(mtext(paste("Parameter= ",1,sep=""),side=3,line=0)) #This does not work! dev.off() }

Hi, I'm probably being dense, but could somebody tell me how I can get tick marks on the axes of my wireframe plot to show up? This gets me a beautiful looking plot, but no ticks: wireframe(z ~ x * y, data, drape=T, colorkey=F) Thanks in advance, -James [[alternative HTML version deleted]]

...00.000000, 300.000000, 100.000000, 33.333333, 11.111111, 39600.000000, 3600.000000, 1200.000000, 400.000000, 133.333333, 44.44444) lattice.options(default.theme = "col.whitebg") wireframe(Z ~ X * Y, scales = list(arrows = FALSE), bg = "white", drape = TRUE, shade = FALSE, colorkey = FALSE, xlab = "p", ylab = "C.O.V.", zlab ="n")

...y to change the direction in which an axis is plotted in cloud/wireframe? For example, for the following code: g <- expand.grid(x = 1:10, y = 5:15, gr = 1:2) g$z <- log((g$x^g$g + g$y^2) * g$gr) wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows = FALSE), drape = TRUE, colorkey = TRUE, screen = list(z = 80, x = -60)) Is there a way to make the y-axis increase from left to right (i.e., increase from 6 to 14)? I'd like to maintain the same screen position, with the x-axis increasing as it moves away. Thanks for any help! Ben.

yes, I narrowed eyes and see the world again. I's eyes narrowed, at present of scenery was draped one hazy cloak, a fairly beautiful come out in the wash. As long as the phenomenon don't essence, some things, some things, some people don't need to see as well, as long as I see things scenery beautiful that side. www.ebuybus.com

Hi, I would like to plot a wireframe (library: lattice) of the function f (x,y)=x*y where x and y are equally evaluated between 0 and 1. When one uses the option drape=TRUE then each "square" between the "wires" (lines that build the surface shape) gets a certain color. A perfect wireframe plot of a continuous surface would be, if you (almost) can not distinguish between the colors of those "squares" that lie adjacent to each...

...e an animation g <- expand.grid(x = newx, y = newy) instant<-100 mydens<-rho_x_t[ instant, ]%o%rho_y_t[ instant, ]/(max(rho_x_t[ instant, ]%o%rho_y_t[ instant, ])) lentot<-nx^2 dim(mydens)<-c(lentot,1) g$z<-mydens jpeg("dens-t-3.jpeg") print(wireframe(z ~ x * y, g, drape = TRUE,shade=TRUE, scales = list(arrows = FALSE),pretty=FALSE, aspect = c(1,1), colorkey = TRUE ,zoom=0.8, main=expression("Density at t=2"), zlab = list(expression("density"),rot = 90),distance=0.0, perspective=TRUE,#screen = list(z = 150, x = -55,y= 0) ,zlim=range(c(0,1)))) de...

...*g$x)**2-(q*g$y)**2) zstar<-(z/q) ind0<-!(q<1) g$z<-zstar sc<-matrix(c(rep(c(-1,-1,-1),sum(ind0))),nrow=sum(ind0),byrow=TRUE) gstar<-rbind(g[ind0,],sc*g[ind0,]) group<-c(rep(1,nrow(gstar)/2),rep(2,nrow(gstar)/2)) gstar$group<-group wireframe(z~x*y|group,gstar,colorkey=TRUE,drape=TRUE, scales=list(arrows=FALSE))