search for: ticktype

Hello, I have quite a simple problem that I believe can be solved quite easily. I have a dataframe as such: Symbol Date Time Exchange TickType ReferenceNumber Price Size 1 3:YMZ7.EC 12/03/2007 08:30:00 EC B 83916044 13387 9 2 3:YMZ7.EC 12/03/2007 08:30:00 EC A 83916045 13388 1 3 3:YMZ7.EC 12/03/2007 08:30:00 EC B 83916054 13387 9 4 3:YMZ7.EC 12/03/2007 08:30:00 EC...

...95, -0.117878701,-0.050461393,0.005991829,0.054672666,0.097103088,0.134398711,0.167423957) x <- c(0,1,2,3,4,5) y <- c(50, 100, 150, 200, 250, 300, 350) z <- matrix(z, nrow=length(x), ncol=length(y), byrow=TRUE) #persp(x, y, z, theta = 30, phi = 30, expand = 0.5, # box= TRUE, axes= TRUE, ticktype = "detailed", main="Title of plot") hgt <- (z - min(z))/ (max(z) - min(z)) z hgt cols <- grey(hgt) persp(x, y, z, col = cols, theta = 30, phi = 30, expand = 0.5, box= TRUE, axes= TRUE, ticktype = "detailed", main="Title of plot") Thanks, Sander....

Hello R-Users, I am new to R and trying my best however I need help with this simple task. I have a dataset, YM1207. X.Symbol Date Time Exchange TickType ReferenceNumber Price Size 12491 3:YMZ7.EC 12/03/2007 08:32:50 EC B 85985770 13379 7 12492 3:YMZ7.EC 12/03/2007 08:32:50 EC A 85985771 13380 4 12493 3:YMZ7.EC 12/03/2007 08:32:50 EC T 85985845 13379 1 12...

...he [0,1] interval and when I try to change it I get errors. Example: This works: ------------ D <- c(1,2,3,4,5,6,7,8,9,10) M <- c(11,12,13,14,15,16,17,18,19,20) DM <- cbind(D,M) persp(DM, theta = 40, phi = 30, expand = 0.5, col = "lightblue", ltheta = 120, shade = 0.75, ticktype = "detailed", xlab = "X", ylab = "Y", zlab = "Z") --------------------- But I want the axis to count 1 by ones. So I try: ----------------- D <- c(1,2,3,4,5,6,7,8,9,10) M <- c(11,12,13,14,15,16,17,18,19,20) DM <- cbind(D,M) x <- 1*0:10 y...

...(6,5,2)) ## colors colo <- c("red", "blue") ## axis x <- 1:6 y <- 1:5 z <- mm[,,1] z1 <- mm[,,2] ## surface with heights and colors ## related to the first matrix (no good) persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = colo, ltheta = 120, ticktype = "detailed", xlab = "X", ylab = "Y", zlab = "values" ) ## surface with heights and colors ## related to the second matrix (no good as well) persp(x, y, z1, theta = 30, phi = 30, expand = 0.5, col = colo, ltheta = 120, ticktype = "detai...

Is there a way to get the axes labels for a persp() plot to show the actual values employed? ticktype='detailed' only shows a scale from 0 to 1. My values are (for example) y in 0.2-0.7, x in 450-560 and I would like to suppress the z labels. How can I get the x and y values to appear on the plot? R-2.3.1, Windows XP Home. Best wishes John John Logsdon...

...axis) in a persp plot but the defaults overrule my specification and I obtain seven of them. Is it possible to gain full control over them in such a plot? Here is my code: matlines=matrix(c(1:7,3:9,3:9,2:8),nrow=7,ncol=4) persp(x=seq(1,7,1),y=seq(0,3,1),z=matlines,theta=-30,phi=25,zlim=c(0,10),d=5,ticktype="detailed",xlab="x", ylab="y",zlab="z") [[alternative HTML version deleted]]

...,] 20 13 8 5 4 5 8 13 20 29 [8,] 25 18 13 10 9 10 13 18 25 34 [9,] 32 25 20 17 16 17 20 25 32 41 [10,] 41 34 29 26 25 26 29 34 41 50 #----------- ccut <- cut(cc, breaks=c(0, 2, 4, 8, 16, 50)) persp(cc, ticktype="detailed", zlim=c(0,25), col= palette(rainbow(6))[as.numeric(ccut)], phi=40) Also tried setting ccut up as a matrix: > ccut <- as.matrix(as.numeric(cut(cc, breaks=c(0, 2, 4, 8, 16, 32)) ), nrow=nrow(cmtx) ) > persp(cc, ticktype="detailed", zlim=c(0,25...

...) { r <- sqrt(x^2+y^2); 10 * sin(r)/r } z <- outer(x, y, f) z[is.na(z)] <- 1 # 'bg' works but 'tck' is not showing any effect... par(bg="gray90", tck=0.01) persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue", ltheta = 120, shade = 0.75, ticktype = "detailed", xlab = "X", ylab = "Y", zlab = "Sinc( r )" ) -> res Any help would be highly appreciated! Thanks, -- Kim. [[alternative HTML version deleted]]

...em when it comes to producing a figure with multiple (4 - 6) persp() plots on it. The axis labels remain the same size, no matter how large or small the plot is, causing some overlap when the multiplot figure is produced. Is there a way to reduce the size of the axis labels in persp() (either for ticktypes="simple" or ticktypes="detailed")? Ideally I would like to know how to reduce the size of the axis labels when using ticktypes="detailed", and force persp() to plot only the min and max value along each axis. Is this possible? R is running under Win2000. > vers...

...e(modelfit,which ='density')color <-rgb(85,141,85,maxColorValue=255)x <-seq(-0.2,0.2,length=100)y <-c(1:2318)f <-function(s,t){dged(s,mean=fd[t,'Mu'],sd=fd[t,'Sigma'],nu=fd[t,'Shape'])}z <-outer(x,y,f)persp3d(x,y,z,theta=50,phi=25,expand=0.75,col=color,ticktype="detailed",xlab="",ylab="time",zlab="",axes=TRUE,axes=FALSE) axes3d(c('x--','z'))axis3d(edge='y+-',at =seq(500,2000,by=500),labels =rownames(fd)[seq(500,2000,by=500)]) My first question is: Currently I have four date ticks on my axis...

...iencing some hassle to add some text on a persp plot... Here is the code to generate the persp plot: x <- seq(-1.95, 1.95, length = 30) y <- seq(-1.95, 1.95, length = 30) z <- outer(x, y, function(a,b) a*b^2) persp(x, y, z,xlim=c(-2,2),ylim=c(-2,2),zlim=c(-8,8), phi=30, theta=-30,nticks=8,ticktype="detailed") I've tried the text() function : text(x=0,y=0,z=0,texts="O") It returns the following error message: >Error: evaluation nested too deeply: infinite recursion / options(expressions=)? I've seen that text3d from the rgl library could add text on a plot3d...

...quot;+"); y <- t(x); X <- cbind(as.vector(x),as.vector(y)); # Data z <- f(x,y); fit <- mars(X,as.vector(z),nk=200,penalty=2,thresh=1e-3,degree=2); # Plotting par(mfrow=c(1,2),pty="s") lims <- c(min(c(min(z),min(fit$fitted))),max(c(max(z),max(fit$fitted)))) persp(z=z,ticktype='detailed',col='lightblue',shade=.75,ltheta=50, xlab='x',ylab='y',zlab='z',main='true',phi=25,theta=55,zlim=lims) persp(z=matrix(fit$fitted.values,nrow=nrow(x),byrow=F),ticktype='detailed', col='lightblue', xlab='x...

...sbj specific first occurrence mod<-lm(y~rd*k) newax<- expand.grid( days = giorni<-seq(min(rd),max(rd), length=100), expl= esplic<- seq(min(k), max(k), length=100) ) fit <- predict(mod,data.frame(rd=giorni,k=esplic)) graph <- persp(x=giorni, y=esplic,fit, expand=0.5, ticktype="detailed", theta=-45) #error : z argument not valid I would be grateful if someone would give me some suggestions. Thank u again and happy new year Federico Bonofiglio [[alternative HTML version deleted]]

...(x,y,z,1)%*% pmat)) + list(x=tmat[1,]/tmat[4,],y=tmat[2,]/tmat[4,]) + } > pmat <- persp(xachse, yachse, betaon1.median.plot,zlim=c(2.75,3.30), theta = 60, phi = 20, + col = "lightblue", xlab = "X", ylab = "Y", zlab = "Z", + ticktype="detailed") This generates a plot for one sample of z-values with enough space for the second plane. How do I now add the second plane? Thanks for your patience, Nina -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www...

...nd data for 2 interpolation plots. http://www.nabble.com/file/7206/3d_plot_data.txt 3d_plot_data.txt data<-read.table("3d_plot_data.txt", header=T) attach(data) par(mfrow=c(1,2)) library(akima) interpolation<-interp(rr,veg_r,predict) persp(interpolation,theta = -45, phi = 30, ticktype = "detailed", nticks=4, cex=0.8, expand=0.5, xlab="\n\n\nPrecipitation", yla="\n\n\nVegetation", zlab="\n\n\nDensity", shade=0.4) interpolation<-interp(tc,veg_r,predict, duplicate="mean") persp(interpolation,theta = -45, phi = 30, ticktype = &q...

...;- z1 nrz <- nrow(z) ncz <- ncol(z) jet.colors <- colorRampPalette( c("yellow", "red") ) nbcol <- 100 color <- jet.colors(nbcol) zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz] facetcol <- cut(zfacet, nbcol) persp(x,y,z,col=color[facetcol], ticktype = "detailed", phi=30,theta=30) ##### Second Graph ### z <- z2 nrz <- nrow(z) ncz <- ncol(z) jet.colors <- colorRampPalette( c("yellow", "red") ) nbcol <- 100 color <- jet.colors(nbcol) zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -n...

...t;- outer(x1, x2, f) z[z<=0] <- NA persp(x1, x2, z, main = "Dirichlet Distribution", col = "lightblue", theta = 50, phi = 20, r = 50, d = 0.1, expand = 0.5, ltheta = 90, lphi = 180, shade = 0.75, ticktype = "detailed", nticks = 5) #<end code> It works fine (I guess), except for a1=a2=a3=1. In that case I get the error: Error in persp.default... invalid 'z' limits. The z matrix has only elements 2 and NA. Any ideas are appreciated. Thank you: Daniel University of P...

...:16 contour(outer(x, x), method = "edge", vfont = c("sans serif", "plain"), xlab=expression(theta[0]), ylab=expression(theta[1])) and all three labels in x <- -6:16 persp(outer(x, x), xlab=expression(theta[0]), ylab=expression(theta[1]), zlab=expression(theta[2]), ticktype="detailed") Is this just a clipping problem, with a large bounding box for expression=...? -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help&quot...

Dear R-ers, I have 3 vectors - x, y, and z and want to plot a surface (z as the 3rd dimension): x<- c(-1,-0.75,-0.5,-0.25,0,0.25,0.5,0.75,1) y<- c(-1,-0.75,-0.5,-0.25,0,0.25,0.5,0.75,1) z<- c(0.226598762, 0.132395904, 0.14051906, 0.208607098, 0.320840304, 0.429423216, 0.54086732, 0.647792527, 0.256692375, 0.256403273, 0.172881269, 0.121978079,