[R] xyplot without external box

[Mauricio Zambrano-Bigiarini]

2012/3/9 David Winsemius <dwinsemius at comcast.net>:
>
> 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))

Thank you very much Davis, That was exactly what I was looking for !!

I had found another solution:

xyplot(1~1, type="n", xlab="", ylab="",
       groups=gof.levels,
       scales=list(draw=FALSE),

       # automatic legend
       key = list(x = .5, y = .5, corner = c(0.5, 0.5),
                 title="legend",
                 points = list(pch=16, col="red", cex=1.5),
                 text = list("my label")
                 ),
       # removing outer box.
       #From: https://stat.ethz.ch/pipermail/r-help/2007-September/140098.html
       par.settings = list(axis.line = list(col = "transparent")),
       axis = function(side, ...) {
           axis.default(side = side, ...)
       },
       )


but your is much neat.

Thank you very much again,

Mauricio

-- 
============================================
FLOODS Action
Water Resources Unit (H01)
Institute for Environment and Sustainability (IES)
European Commission, Joint Research Centre (JRC)
webinfo    : http://floods.jrc.ec.europa.eu/
============================================
DISCLAIMER:
"The views expressed are purely those of the writer
and may not in any circumstances be regarded as stating
an official position of the European Commission."
============================================
Linux user #454569 -- Ubuntu user #17469
============================================
"There is only one pretty child in the world,
and every mother has it."
(Chinese Proverb)
============================================
http://c2.com/cgi/wiki?HowToAskQuestionsTheSmartWay

>
> --
> 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
>