Re: [R] xyplot without external box
On Mar 12, 2012, at 4:29 AM, Mauricio Zambrano-Bigiarini wrote:
2012/3/9 David Winsemius dwinsem...@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
__
R-help@r-project.org 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.
Re: [R] xyplot without external box
2012/3/9 Greg Snow 538...@gmail.com: 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 hzambran.newsgro...@gmail.com 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 __ R-help@r-project.org 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. 538...@gmail.com __ R-help@r-project.org 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.
Re: [R] xyplot without external box
2012/3/9 David Winsemius dwinsem...@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
__
R-help@r-project.org 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.
Re: [R] xyplot without external box
2012/3/12 David Winsemius dwinsem...@comcast.net:
On Mar 12, 2012, at 4:29 AM, Mauricio Zambrano-Bigiarini wrote:
2012/3/9 David Winsemius dwinsem...@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
__
R-help@r-project.org 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.
Re: [R] xyplot without external box
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 hzambran.newsgro...@gmail.com 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 __ R-help@r-project.org 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. 538...@gmail.com __ R-help@r-project.org 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.
Re: [R] xyplot without external box
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 __ R-help@r-project.org 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.
Re: [R] xyplot without external box
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 __ R-help@r-project.org 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 __ R-help@r-project.org 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.
[R] xyplot without external box
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 __ R-help@r-project.org 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.
