Sorry, I'm enclosing incomplete not-runnable code.
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,at=frqTicLocs,labels=frqLabels,srt=90,adj=c(1,0))
The first axis and first staxlab works.
The second axis is OK below the first axis.
The print(frqLabels[i]) is OK.
But the second staxlab puts the frqLabels[i] on the first (upper) axis.
I must have to add something to the second staxlab to select second axis?
Hurr
--
View this message in context:
http://r.789695.n4.nabble.com/Second-axis-on-bottom-of-graph-tp4690696p4690803.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.
