On Mon, 19 May 2014 05:23:20 AM Hurr wrote: > 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.integ > er(4)) for(i in 1:(nFrqTicInvls+1))print(frqLabels[i]) > axis(1,tick=TRUE,line=3.5,at=frqTicLocs,labels=rep("",length(frqLabels)),pad > j=0) staxlab(1,top.line=5,at=frqTicLocs,labels=frqLabels,srt=90) > title(xlab="Cycles/Yr",line=6) > > Hurr
I guess top.line=5 would be almost off the bottom of the plot. I assume that you know how it should look (I don't) and can adjust the top.line value until it looks right. the next version of plotrix will probably be out in a week or two. Jim ______________________________________________ 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.