textplot in layout

Hello,

Someone (Erik) recently posted about putting text on a plot. That thread
didn't help. I'd like to put text directly below the 'sub' text (with no
gap). The code below is the best I can do. Note the large undesirable gap
between 'sub' and 'test'. I'd like the word 'test' to be just below the top
box() boarder (directly below 'sub').

year <- c(2000 ,   2001  ,  2002  ,  2003 ,   2004)
rate <- c(9.34 ,   8.50  ,  7.62  ,  6.93  ,  6.60)
op <- par(no.readonly = TRUE)
on.exit(par(op))
layout(matrix(c(1,2), 2, 1, byrow = TRUE),heights=c(8,1))
par(mar=c(5,3,3,3))
plot(year,rate,main='main',sub='sub')
library(gplots)
par(mar=c(0,0,0,0),new=F)
textplot('test',valign='top',cex=1)
box()

Note: I'd rather solve it with textplot. If not, my next stop is
grid.text(). Also, the text I am plotting with textplot is much longer so a
multiple line text plot would solve my next issue (of which I have not
looked into yet). Lastly, layout is not necessary. I just used it because I
thought it would do what I wanted.

Thanks,

Ben

	[[alternative HTML version deleted]]