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.