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.