This (and Gabors) solutions work great. Thanks to everybody for helping out
On Fri, Dec 17, 2010 at 1:24 AM, David Winsemius <dwinsem...@comcast.net> wrote: > > On Dec 17, 2010, at 12:07 AM, Rajarshi Guha wrote: > >> On Thu, Dec 16, 2010 at 11:26 PM, David Winsemius >> <dwinsem...@comcast.net> wrote: >>> >>> On Dec 16, 2010, at 11:12 PM, Rajarshi Guha wrote: >>> >>>> Hi, I have a series of lattice plots which I am arranging in a 2x2 >>>> grid via print: >>>> >>>> print(p.preds, split=c(1,1, 2,2), more=TRUE) >>>> print(p.comp, split=c(2,1,2,2), more=TRUE) >>>> print(p.bw, split=c(1,2,2,2), more=FALSE) >>>> >>>> What I'd like to have is a letter (A, B, ...) in the top corner of >>>> each plot. While panel.text lets me add text anywhere within a plot, I >>>> can't seem to workout how I could put some text in the top left >>>> corner, say, of the whole plotting region. >>> >>> ########>>>>>>>>> >>>> >>>> and provide commented, minimal, self-contained, reproducible code. >> >> Apologies for an incomplete post. Example code, based on Gabors suggestion >> is >> >> library(gridExtra) >> p1 <- xyplot(demand ~ Time, BOD) >> p2 <- xyplot(demand ~ Time, BOD) >> p3 <- xyplot(demand ~ Time, BOD) >> print(p1, split=c(1,1,2,2), more=TRUE) >> print(p2, split=c(2,1,2,2), more=TRUE) >> print(p3, split=c(1,2,2,2), more=FALSE) >> >> However, Gabors approach places the mark within the plot itself. What >> I'd ideally like is to have the mark be located in the margins, in the >> top right corner. (I am not sure of the correct terminology here). An >> example of the desired output can be seen at >> http://rguha.net/plot-annot.png >> > > Something along these lines? > > vp <- viewport(w = 1, h = 1, gp = gpar(col="blue")) # or "black" > grid.text("A", > y = .95, x=.05, > gp = gpar(fontsize=20), vp = vp) > grid.text("B", > y = .95, x=.55, > gp = gpar(fontsize=20), vp = vp) > grid.text("C", > y = .45, x=.05, > gp = gpar(fontsize=20), vp = vp) > -- > > David Winsemius, MD > West Hartford, CT > > -- Rajarshi Guha NIH Chemical Genomics Center ______________________________________________ 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.
