On Apr 23, 2010, at 11:32 AM, Deepayan Sarkar wrote:
On Wed, Apr 21, 2010 at 4:02 PM, David Winsemius <dwinsem...@comcast.net
> wrote:
snipped earlier code
Furthermore when I try:
mtext(date(), side=3, line=4, adj=0)
.... I get a datetime stamp even though I am mixing graphic
paradigms. This
would seem to be one of those instances where you needn't worry about
getting the internal coordinates to match up.
Appearances can be deceiving. Try to create a PDF file with this, and
you will get
pdf()
xyplot(1 ~ 1)
mtext(date(), side=1, line=4, adj=0)
Error in mtext(date(), side = 1, line = 4, adj = 0) :
plot.new has not been called yet
dev.off()
Try to copy the screen device to PDF, and you will get
dev.copy(pdf, file = "/tmp/foo.pdf")
Error in dev.copy(pdf, file = "/tmp/foo.pdf") : invalid graphics state
For a footnote in lattice plots, page is the appropriate argument to
use. Adapting an example from the book (section 9.3), the following
will add a timestamp to all subsequent lattice plots:
lattice.options(default.args = list(page = function(n) {
panel.text(lab = sprintf("%s", date()), x = 0.99, y = 0.05, adj =
1)
}))
xyplot(1 ~ 1)
Thank you for that. Correct in all important aspects on my MacOS X
system as well, when using the default quartz device. My eventual
modification to your suggestion was:
lattice.options(default.args = list(page = function(n) {
panel.text(lab = sprintf("%s", date()), x = 0.01, y = 0.01, adj =
0, srt=90)
}))
... which puts it going upward along the right hand margin, and I like
it so much that I think I will put it in my .Rprofile preceded of
course by require(lattice).
-Deepayan
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.
