[R] xyplot without external box

[David Winsemius]

On Mar 8, 2012, at 8:02 AM, Mauricio Zambrano-Bigiarini wrote:

> Dear list members,
>
> Within a loop, I need to create an xyplot with only a legend, not even
> with the default external box drawn by lattice.
>
> I already managed to remove the axis labels and tick marks, but I
> couldn't find in the documentation of xyplot how to remove the
> external box.

I found it by searching rhelp at the Newcastle site:
From: Jerome Asselin
Date: Fri 25 Jul 2003 - 07:54:15 EST


  trellis.par.set("axis.line",list(col=NA,lty=1,lwd=1))

You can restore the earlier behavior with:

trellis.par.set("axis.line",list(col="black",lty=1,lwd=1))

-- 
David

>
> I would really appreciate any help with this
>
>
> ------------- START -----------
> library(lattice)
>
> x<-1:100
> cuts <- unique( quantile( as.numeric(x),
>                           probs=c(0, 0.25, 0.5, 0.75, 0.9, 0.95, 1),
> na.rm=TRUE) )
>
> gof.levels <- cut(x, cuts)
> nlevels <- length(levels(gof.levels))
>
> xyplot(1~1, groups=gof.levels,  type="n", xlab="", ylab="",
>          scales=list(draw=FALSE),
>          key = list(x = .5, y = .5, corner = c(0.5, 0.5),
>                 title="legend",
>                 points = list(pch=16, col=c(2,4,3), cex=1.5),
>                 text = list(levels(gof.levels))
>                         )
>      )
>
> -------------  END  -----------



David Winsemius, MD
West Hartford, CT