[R] Second axis on bottom of graph

[Hurr]

Thanks again Jim.
Sorry, again I'm enclosing incomplete not-runnable code.
Modified like this it works with the new staxlab function which 
I inserted before the second staxlab call. 
How long before I don't need to insert it?
I didn't see a way to select the specific axis, so
I used top.line=5. Is that what I should do?

axis(1,tick=TRUE,at=horTicLocs,labels=rep("",length(horLabels)),padj=0)
staxlab(1,at=horTicLocs,labels=horLabels,srt=90,adj=c(1,0)) 
nFrqTicInvls=9; frqTicLocs <- vector(length=nFrqTicInvls+1); frqLabels <-
vector(length=nFrqTicInvls+1); 
frqInvl=(horAxisLims[2]-horAxisLims[1])/nFrqTicInvls 
for(i in 1:(nFrqTicInvls+1))frqTicLocs[i]=horAxisLims[1]+(i-1)*frqInvl 
for(i in
1:(nFrqTicInvls+1))frqLabels[i]=.jcall(OuWid,"S","sR",frqTicLocs[i],as.integer(4)) 
for(i in 1:(nFrqTicInvls+1))print(frqLabels[i]) 
axis(1,tick=TRUE,line=3.5,at=frqTicLocs,labels=rep("",length(frqLabels)),padj=0) 
staxlab(1,top.line=5,at=frqTicLocs,labels=frqLabels,srt=90) 
title(xlab="Cycles/Yr",line=6)

Hurr




--
View this message in context: http://r.789695.n4.nabble.com/Second-axis-on-bottom-of-graph-tp4690696p4690819.html
Sent from the R help mailing list archive at Nabble.com.