[R] xyplot without external box

[Mauricio Zambrano-Bigiarini]

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

Thanks David for your useful comment.

All the best,

Mauricio



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