R help - Jan 2006 - footnote in postscript lattice

I would like to add a footnote to this graph but do not see a
"footnote" command in the package:lattice documentation. I would like
to note the "span=.8"
 as the footnote.

postscript(file= ?C:/Documents and Settings/dsonneborn/My
Documents/Slovak/output/pcb_tables/smooth_PCB_lines_four.ps?, bg=?transparent?,
onefile=FALSE, pointsize=20,paper=?letter?, horizontal=TRUE,
family=?Helvetica?,font=?Helvetica?)

xyplot(AWGT ~ lipid_adj_lpcb2_cent | malex*romanix, data=pcb_graph3,

       auto.key = list(lines = TRUE, points = TRUE), ylab=?Birth Weight?,
xlab=?Lipid Adjusted PCB?,

       par.settings 
       list(superpose.symbol = list(col = colr, pch = plotchar),

            superpose.line = list(col = colr, pch = plotchar, lty = 1)),

        type=c("p", "smooth"), span=.8)

dev.off()
thanks

-- 
Dean Sonneborn, MS
Programmer Analyst
Department of Public Health Sciences
University of California, Davis
(530) 754-9516

After you create your xyplot use
library(grid)
panel.text(grid.locator(),label="My label")

Cheers

Francisco

PS:  How is good ol' David these days?
>From: Dean Sonneborn <dsonneborn at ucdavis.edu>
>To: r-help at stat.math.ethz.ch
>Subject: [R] footnote in postscript lattice
>Date: Thu, 26 Jan 2006 15:46:28 -0800
>
>I would like to add a footnote to this graph but do not see a
"footnote"
>command in the package:lattice documentation. I would like to note the 
>"span=.8"
>  as the footnote.
>
>postscript(file= ”C:/Documents and Settings/dsonneborn/My 
>Documents/Slovak/output/pcb_tables/smooth_PCB_lines_four.ps”, 
>bg=”transparent”, onefile=FALSE, pointsize=20,paper=”letter”, 
>horizontal=TRUE, family=”Helvetica”,font=”Helvetica”)
>
>xyplot(AWGT ~ lipid_adj_lpcb2_cent | malex*romanix, data=pcb_graph3,
>
>        auto.key = list(lines = TRUE, points = TRUE), ylab=”Birth Weight”, 
>xlab=”Lipid Adjusted PCB”,
>
>        par.settings >
>        list(superpose.symbol = list(col = colr, pch = plotchar),
>
>             superpose.line = list(col = colr, pch = plotchar, lty = 1)),
>
>         type=c("p", "smooth"), span=.8)
>
>dev.off()
>thanks
>
>--
>Dean Sonneborn, MS
>Programmer Analyst
>Department of Public Health Sciences
>University of California, Davis
>(530) 754-9516
>
>______________________________________________
>R-help at stat.math.ethz.ch mailing list
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide! 
>http://www.R-project.org/posting-guide.html

Here is one example using the page option in xyplot:

library(lattice)
library(grid)
 add.footnote <- function(string="Hello World",
col="grey",
lineheight=0.5, cex=0.7){
       grid.text(string,
      x=unit(1, "npc") - unit(1, "mm"),
      y=unit(1, "mm"), just=c("right", "bottom"),
      gp=gpar(col=col,lineheight=lineheight, cex=cex))
      }
      
 xyplot(1~1, page=function(n){ add.footnote()})


Markus Gesmann
FPMA
Lloyd's Market Analysis
Lloyd's * One Lime Street * London * EC3M 7HA
Telephone +44 (0)20 7327 6472
Facsimile +44 (0)20 7327 5718
http://www.lloyds.com


-----Original Message-----
From: r-help-bounces at stat.math.ethz.ch
[mailto:r-help-bounces at stat.math.ethz.ch] On Behalf Of Dean Sonneborn
Sent: 26 January 2006 23:46
To: r-help at stat.math.ethz.ch
Subject: [R] footnote in postscript lattice


I would like to add a footnote to this graph but do not see a
"footnote"
command in the package:lattice documentation. I would like to note the
"span=.8"
 as the footnote.

postscript(file= "C:/Documents and Settings/dsonneborn/My
Documents/Slovak/output/pcb_tables/smooth_PCB_lines_four.ps",
bg="transparent", onefile=FALSE,
pointsize=20,paper="letter",
horizontal=TRUE, family="Helvetica",font="Helvetica")

xyplot(AWGT ~ lipid_adj_lpcb2_cent | malex*romanix, data=pcb_graph3,

       auto.key = list(lines = TRUE, points = TRUE), ylab="Birth
Weight", xlab="Lipid Adjusted PCB",

       par.settings 
       list(superpose.symbol = list(col = colr, pch = plotchar),

            superpose.line = list(col = colr, pch = plotchar, lty = 1)),

        type=c("p", "smooth"), span=.8)

dev.off()
thanks

-- 
Dean Sonneborn, MS
Programmer Analyst
Department of Public Health Sciences
University of California, Davis
(530) 754-9516

______________________________________________
R-help at stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html

************LNSCNTMCS01***************************************************
The information in this E-Mail and in any attachments is CON...{{dropped}}