Hi
Here's one approach ...
# The layout's the important bit
layout(rbind(c(7, 7),
c(1, 2),
c(8, 8),
c(3, 4),
c(9, 9),
c(5, 6)),
heights=c(1, 5, 1, 5, 1, 5))
# Dummy plots
par(mar=c(5.1, 3.1, 0, 2))
plot(1:10, xlab="", ylab="")
plot(10:1, xlab="", ylab="")
plot(1:10, xlab="", ylab="")
plot(10:1, xlab="", ylab="")
plot(1:10, xlab="", ylab="")
plot(10:1, xlab="", ylab="")
# Year labels
par(mar=rep(0, 4))
plot.new()
text(.5, .5, 2004, cex=1.5, font=2)
plot.new()
text(.5, .5, 2005, cex=1.5, font=2)
plot.new()
text(.5, .5, 2006, cex=1.5, font=2)
Paul
On 10/11/2010 3:13 p.m., Rolf Turner wrote:
I have figured out a *slightly* less kludgy way of accomplishing
my goal. Still a bit of a hack, but it works and seems to be
consistent across graphics devices.
Essentially it's this: After the *first* plot in each row, do:
U<- par()$usr
XD<- diff(U[1:2])
YD<- diff(U[3:4])
text(U[1]+1.05*XD,U[3]+1.15*YD,labels=YR,adj=0,font=2,cex=1.5,xpd=NA)
where "YR" is the current value of the calendar year (e.g. 2004). Note that
xpd=NA is necessary since the text is being placed outside the plotting region
and hence will not appear unless this parameter is properly set.
Hope this is of some use to someone besides my very good self. :-)
cheers,
Rolf Turner
______________________________________________
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.
--
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
p...@stat.auckland.ac.nz
http://www.stat.auckland.ac.nz/~paul/
______________________________________________
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.
