search for: ntick

...Year, dat, Sales, type="h", axes=F, lwd=5, xlab="Year", ylab="Country", zlab="Sales", col=Colors, main="Typherix: Country/Year/Sales") ##replacing type="l" makes a connections all around, I want only one per country axis3d("x", nticks=10, cex=0.7) axis3d("z", nticks=5, cex=0.7, las=2) axis3d("y", labels=Country, las=2, nticks=20, cex=0.5) -- View this message in context: http://r.789695.n4.nabble.com/3D-plot-RGL-tp3798754p3798754.html Sent from the R help mailing list archive at Nabble.com.

...,ly2) m1<-cbind(path.one,y1) m2<-cbind(path.two,y2) d.mat<-rbind(m1,m2) open3d() points3d(x=d.mat[,1],y=d.mat[,3],z=d.mat[,2],size=3) lines3d(x=m1[,1],y=m1[,3],z=m1[,2],size=3) lines3d(x=m2[,1],y=m2[,3],z=m2[,2],size=3) I then added axes using box3d() axes3d(c('x--'),tick=TRUE,nticks=5) axes3d(c('z--'),tick=TRUE,nticks=5) axes3d(c('z++'),tick=TRUE,nticks=5) title3d(main = "Test 3-D plot", sub = NULL, xlab ="Lag", ylab = NULL, zlab = "Dissolved O2", line = NA) I did some rotation to determine a nicer view of the plot. I now w...

Hi, I have a dataframe, hilodata, which looks like this: > hilodata sym date maxprice minprice ntick 1 ABK 19910711 11.1867461 0.0000000 108 2 ABK 19910712 11.5298979 11.1867461 111 3 ABK 19910715 11.7357889 11.4612675 52 4 ABK 19910716 11.5298979 11.3240068 51 5 ABK 19910717 11.4612675 11.1181158 2...

...= y, z = z, ID = c(rep(c(1,2,3),each=10))) plot3d(dat, type = "n", ylab = "", xlab = "", zlab = "", axes = F, ylim = c(0,200)) lines3d(dat[1:10,]) lines3d(dat[11:20,]) lines3d(dat[21:30,]) axes3d(edge = c("x--", "y-+", "z--"), nticks = 5, ylim = c(0,200)) bbox3d(color = c("black", "white"), lit = F, back = "line") Any ideas/tips on how to do this? thanks in advance, Patrick -- View this message in context: http://r.789695.n4.nabble.com/RGL-3D-curvilinear-shapes-tp4636011.html Sent from the R...

...9;m experiencing 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...

.... 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 = "detailed", nticks=4,...

...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?cs

...the "col" feature but it doesn't put a flowing color gradient on the entire surface... Additionally, the xlab and ylab labels are appearing squished on the outer edges of the chart. Is there any way to get rid of the arrow along the axes and replace them with ticks and labels? "nticks" wasn't working... Is persp the best way to 3-D plot a 2-D array where I can overlay color?? Any guidance would be greatly appreciated. Thanks for your consideration. Jake [[alternative HTML version deleted]]

...scan("x.txt", list(0)) ydata <- scan("y.txt", list(0)) zdata <- scan("z.txt", list(0)) f <- function(xdata,ydata) { rr <- zdata; rr } z <- outer(xdata, ydata, f) pdf(file="persp.pdf",height = 8, width =8) persp(xdata, ydata, z, axes = TRUE, nticks = 5, ticktype = "detailed",r=1.5) dev.off() q() EOF The problem is that when I look at the plot, the peaks of the zdata are i The problem is that when I look at the plot, the peaks of the zdata are in the wrong places on the x axis. I have carefully looked over my data files...

Dear All, I am very new to R projects.May be i am wrong in some steps.I have given the code which i tried for drawing 3d surface using persp.I need to label the axes with scales z <- array(topnew2$V2, dim=c(600,2)) x <- 10 * (1:nrow(z)) y <- (1:ncol(z)) persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue", xlab ="fluidlevel", ylab

Hi, I am trying to specify four ticks (at 0,1,2,3 for the y 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)

Hi All, I'm using 'tck' option to *reduce* the length of tick marks but it is not working, can anyone please tell me where I'm going wrong... require(graphics) require(grDevices) x <- seq(-10, 10, length= 30) y <- x f <- function(x,y) { 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

...mc[-20,-12] ## / 4 fcol[-i1,-i2] <- heat.colors(30)[cut(zi, quantile(zi, seq(0,1, len = 20)), include.lowest = TRUE)] persp(x, y, z, theta = 140, phi = 20, col = fcol, scale = FALSE, axes=TRUE, ylab="Prey_Age",xlab="",zlab="", nticks=4,ticktype="detailed",expand=17,shade=0.2,cex.axis=1.4,cex.lab=1.5) title("OPERATING MODEL", font.main=3,cex.main=1.5) [plot code repeated 7x for 8 plots per page] dev.off() Thanks so much!! K. VanKirk -- View this message in context: http://r.789695.n4.nabble.com/Label-ma...

...,",",.(a2),",",.(a3),")")), 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) } plot.dirichlet<-function(){ refresh.code<-function(...){ a1<-slider(no=1); a2<-slider(no=2); a3<-slider(no=3) type= slider(obj.name="type") dirfelulet(a1,a2,a3) } slider(obj.name="type",obj.value="l") gslider(refresh.code,sl...