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.
