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.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
