Hi,
I need a custom axis function for a plot, but it seems
that current.panel.limits() sometimes returns NaN limits for the plot, which
it much harder to calculate anything sensible.
An illustration:
Given this axis function:
vs.axis <- function(...){
xlim <- current.panel.limits()$xlim
ylim <- current.panel.limits()$ylim
# Debug code
print(list(ylim=ylim,xlim=xlim))
xat <- pretty(seq(xlim[1],xlim[2],100),n=5)
yat <- pretty(seq(ylim[1],ylim[2],100),n=4)
xlab <- sub("-","",as.character(xat))
ylab <- sub("-","",as.character(yat))
panel.axis(side="top",at=xat,labels=xlab)
panel.axis(side="right",at=yat,labels=ylab)
}
and the attached data set, I get this output:
> xyplot(F1 ~F2,data=pb,axis=vs.axis)
$ylim
[1] NaN NaN
$xlim
[1] 346.5 3823.5
Error in if (del == 0 && to == 0) return(to) :
missing value where TRUE/FALSE needed
What's wrong? Is there a more robust way of getting the x- and y- limits?
/Fredrik
--
"Life is like a trumpet - if you don't put anything into it, you don't get
anything out of it."
______________________________________________
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.
