search for: ntick

Displaying 14 results from an estimated 14 matches for "ntick".

Did you mean: tick
2011 Sep 08
1
3D plot RGL
...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.
2007 May 29
1
rgl.postscript
...,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...
2000 Sep 03
1
removing rows from a dataframe
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...
2012 Jul 10
1
RGL 3D curvilinear shapes
...= 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...
2012 Jul 05
1
Adding Text to a persp plot using specific coordinates
...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...
2007 Mar 16
0
How can I place axis annotations away from axis?
.... 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,...
2011 Mar 29
1
Dirichlet surface
...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
2012 Nov 12
1
3d plotting from a 2d array
...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]]
2008 Jun 24
2
persp plot
...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...
2005 Mar 16
1
Help in persp (VERY URGENT ASSISTANCE)
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
2009 Mar 29
2
number of ticks in a persp() plot
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)
2010 May 26
1
persp(); help with 'tck' option
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
2011 Dec 08
0
Label margins in multiple perspective plots per page
...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...
2012 Nov 05
0
slider control questions
...,",",.(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...