[R] xyplot without external box

[David Winsemius]

On Mar 12, 2012, at 4:29 AM, Mauricio Zambrano-Bigiarini wrote:

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

That is basically the same solution, at least to the extent that you  
changed the same lattice parameter to a non-prining value, but you  
changed it inside the xyplot function. That is probably better since  
you won't need to change it back to reset the default behavior  
afterwards.

-- 
David

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

David Winsemius, MD
West Hartford, CT