similar to: wireframe - different axes on each panel

Dear R-help. When plotting 3D wireframe plots with the lattice package, there is often a lot of space between the actual plot (i.e., cube) and panel borders. For a single wireframe, this is not a problem, but when plotting multiple wireframes, the wasted space decreases the size of the plots very much. Is there a way to decrease this space/margin? I could not find any information about it in

Hello Everyone, I am using R ver. 2.10.1 (2009-12-14). I installed lattice today via install.packages. I am doing this minimal example: M = read.csv("/path/to/csv") cloud(x ~ y * z, data = M) this correctly gives me a scatterplot of the csv data which has 3 columns. Every column contains 1800 numeric 0 < values < 1300 when I want to plot the corresponding wireframe via

Dear expeRts, I would like to add two points to a wireframe plot. The points have (x,y,z) coordinates where z is determined to be on the wireframe [same z-value]. Now something strange happens. One point is perfectly plotted, the other isn't shown at all. It only appears if I move it upwards in z-direction by adding a positive number. So somehow it disappears in the wireframe-surface

termplot() does not carry subsetting over to carriers that are in the environment but not in the data frame. This generates a "subscript out of bounds" error. > data(ToothGrowth) > logdose <- log(ToothGrowth$dose) > tooth.lm <- lm(len ~ logdose, data=ToothGrowth) > termplot(tooth.lm) ## Works fine > toothVC2.lm <- lm(len ~ poly(dose,2),

Hello, I try to increase the distance between tick labels and ticks in a lattice wireframe plot. Here's a minimal example: ## Minimal example x <- y <- z <- c(1,2,3) df <- data.frame(x, y, z) wireframe(z ~ x*y, df, scales = list(arrows = FALSE, col = "black", font = 1, tck=0.6)) I tried the axis.components option

Hello R-classicist won't like the following question due to there's no minimal reproducible example and the question was posted already. Anyway I'm not able understand this rather complicated version of "add points to wireframe". what I have is matrix 3x2000 with a dem<-(x,y,z, coordinates) (not provided). with follwing code I want to produce the wireframe and add some

Hello, I am trying to get a surface plot of a data set that looks like the following, 1 2 5.6 5 9 2.4 9 8 9.8 ... to (60,000 rows down) From my homework, the persp function only works with evenly spaced data points with the z data beeing in a matrix. my data is not in that format. the wireframe fxn gives me an error, no applicable method for "wireframe" the

Hi, I have the following problem. Calling wireframe within a loop results into an empty window(s) #generate some data temp = expand.grid(A = 1:3,B = 1:3) temp = cbind(temp, y1 = rnorm(9)) temp = cbind(temp, y2 = runif(9)) #plot y1 and y2 in two different windows for(i in 1:2) { wireframe(y1 ~ A*B, temp, shade =T) windows() wireframe(y2 ~ A*B, temp, shade =T) } #However, calling it twice

Per the message from Alexander Nervedi, 29 April 2006: > I have to be making a riddiculously silly ommission. > when I run the fillowing i get the cloud plot ok. But I cant figure > out what I am missing out when I call wireframe. > Any help would be appreciated. > x<-runif(100) > y<-rnorm(100) > z<-runif(100) > temp <-data.frame(x,y,z) >

A quick question. I'm trying to plot a surface from a fitted model along with the original points, as in the following example: df<-data.frame(expand.grid(100*runif(1:100), 100*runif(1:100))) df$Var3<-rnorm(length(df$Var1), mean=df$Var1*df$Var2, sd=10) my.lm<-lm(Var3 ~ Var1*Var2, data=df) my.fun<-function(x,y) predict(my.lm, data.frame(Var1=x, Var2=y),

Hello Dear, I have a function, like z=f(x,y), and try a surface plot with this function. But, on the reference of "wireframe" requires data option, so I generated x and y, and computed z with them. But, still I have a problem to draw a surface plot. The code and errors are ################################################## mle_beta0=64.43707; mle_beta1=-24365.16; # generating for

Perhaps I am missing something incredibly basic, but I can't get the wireframe function to plot anything other than an empty graph with axes (and the correct scale). Cloud() works just fine, as does scatterplot3d(), and wireframe() works fine for other data sets I have. Are there some data sets that can't be plotted with wireframe()? If so, what are the characteristics that prevent

It is a trivial matter to adjust the linewidth of the axes and plot line in a 2D plot: x <- 1:10; y <- 1:10; par(lwd=2); # axis (and others) linewidth plot(x,y,"l",lwd=6); # plot linewidth Is there anything comparable to this for persp or wireframe? I've tried a number of ways, and the framebox/axes seem to be linked to the linewidth used in generating the

How can I change the tick mark values in lattice, specifically wireframe? I have a 11*46 matrix of values that I am plotting using wireframe. Unfortunely, the values range from 0.1-1.1 and 0.5-5. Using the code below the tick marks have are (2,4,6,8,10) and (10,20,30,40). Thanks in advance. graphic5 <- wireframe(output.matrix, shade= TRUE, scales = list(arrows = FALSE, cex=.6,

I've been using lattice/wireframe succesfully to visualize some data. I have one question. I want to be able to change the viewpoint ( i.e. rotate the plotted figure a bit left or right or up and down ) Is there a way to do that? Or is there some other package around that could help? Thanks.

Dear All R Users, I am trying to graph a 3-D graph of simulated data for logit models using the powerful wireframe command, but I got stuck. Here are the codes: x <- seq(-4, 4, by=0.01) y <- seq(-4, 4, by=0.01) p <- 1/(1+exp(-0.12*x + 0.35*y)) mydata <- cbind(x, y, p) require(lattice) wireframe(p~x*y, data=mydata) and I received the following message: Error in

Hello List, I have some plots with the wireframe() function, and I'd like to display them in a single jpeg file. I know that par(mfrow=c(x,y)) will divide my display window in x rows and y columns, and although this works with plot(), it looks like it's not working with wireframe. here's my code: library(lattice) library(Cairo) CairoJPEG("wiley-rank.jpeg", width=960,

#Hi, # #somebody knows how to remove the outer box around a wireframe and reduce the height # # test = data.frame(expand.grid(c(1:10), c(1:10))) z = test[,1] + test[,2] test = cbind(test, z) names(test) = c("x", "y", "z") require(lattice) wireframe(z ~ x*y, data = test, par.box = c(col = "transparent") ) #not this one but the remaining outer box.

Hello, This code builds a simple example of 2 wireframes : require(lattice) x <- c(1:10) y <- c(1:10) g <- expand.grid(x = 1:10, y = 1:10, gr = 1:2) g$z <- c(as.vector(outer(x,y,"*")), rep(50,100)) wireframe(z ~ x * y, data = g, groups = gr, scales = list(arrows = FALSE)) However, the intersection between the wireframes is not properly drawn. Is there a way to fix this

I need grayscale formatting for a wireframe. The only col.regions that I can find are color palettes are all colored: rainbow(n, s = 1, v = 1, start = 0, end = max(1,n - 1)/n, gamma = 1, alpha = 1) heat.colors(n, alpha = 1) terrain.colors(n, alpha = 1) topo.colors(n, alpha = 1) cm.colors(n, alpha = 1) The code follows: X11() library(lattice) par(family="serif", cex=1.2)