xyplot without external box

classic Classic list List threaded Threaded
8 messages Options
Reply | Threaded
Open this post in threaded view
|

xyplot without external box

Mauricio Zambrano-Bigiarini-2
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 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  -----------

Thanks in advance,

Mauricio Zambrano-Bigiarini

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

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

glsnow
Why do you want to do this?  Lattice was not really designed to put
just part of the graph up, but rather to create the entire graph using
one command.

If you want to show a process, putting up part of a graph at a time,
it may be better to create the whole graph as a vector graphics file
(pdf, postscript, svg, pgf, emf, etc.) then use an external program to
remove those parts that you don't want for a given step.

On Thu, Mar 8, 2012 at 6:02 AM, Mauricio Zambrano-Bigiarini
<[hidden email]> 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 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  -----------
>
> Thanks in advance,
>
> Mauricio Zambrano-Bigiarini
>
> --
> ============================================
> 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
>
> ______________________________________________
> [hidden email] 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.



--
Gregory (Greg) L. Snow Ph.D.
[hidden email]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

David Winsemius
In reply to this post by Mauricio Zambrano-Bigiarini-2

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

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

David Winsemius

On Mar 9, 2012, at 12:10 PM, David Winsemius wrote:

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

And this is what Sarkar demonstraates in the help page for wireframe:

wirfrm> ## transparent axes
wirfrm>
wirfrm> par.set <-
wirfrm+     list(axis.line = list(col = "transparent"),
wirfrm+          clip = list(panel = "off"))

wirfrm> print(cloud(Sepal.Length ~ Petal.Length * Petal.Width,
wirfrm+             data = iris, cex = .8,
wirfrm+             groups = Species,
wirfrm+             main = "Stereo",
wirfrm+             screen = list(z = 20, x = -70, y = 3),
wirfrm+             par.settings = par.set,
wirfrm+             scales = list(col = "black")),
wirfrm+       split = c(1,1,2,1), more = TRUE)

> --
> 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
>
> ______________________________________________
> [hidden email] 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.

David Winsemius, MD
West Hartford, CT

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

Mauricio Zambrano-Bigiarini-2
In reply to this post by glsnow
2012/3/9 Greg Snow <[hidden email]>:
> Why do you want to do this?  Lattice was not really designed to put
> just part of the graph up, but rather to create the entire graph using
> one command.

To make a long story short, you are right, I need to do this because
my knowledge with trellis graphics is not enough for creating all the
plots at once. However, In this moment I have no time for change the
whole function that produces several spplot graphics (sp package), but
I'll do it in the future.

Thanks anyway,

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

>
> If you want to show a process, putting up part of a graph at a time,
> it may be better to create the whole graph as a vector graphics file
> (pdf, postscript, svg, pgf, emf, etc.) then use an external program to
> remove those parts that you don't want for a given step.
>
> On Thu, Mar 8, 2012 at 6:02 AM, Mauricio Zambrano-Bigiarini
> <[hidden email]> 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 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  -----------
>>
>> Thanks in advance,
>>
>> Mauricio Zambrano-Bigiarini
>>
>> --
>> ============================================
>> 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
>>
>> ______________________________________________
>> [hidden email] 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.
>
>
>
> --
> Gregory (Greg) L. Snow Ph.D.
> [hidden email]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

Mauricio Zambrano-Bigiarini-2
In reply to this post by David Winsemius
2012/3/9 David Winsemius <[hidden email]>:

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

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

David Winsemius

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

> 2012/3/9 David Winsemius <[hidden email]>:
>>
>> 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

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: xyplot without external box

Mauricio Zambrano-Bigiarini-2
2012/3/12 David Winsemius <[hidden email]>:

>
> On Mar 12, 2012, at 4:29 AM, Mauricio Zambrano-Bigiarini wrote:
>
>> 2012/3/9 David Winsemius <[hidden email]>:
>>>
>>>
>>> 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
>

______________________________________________
[hidden email] 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.