[R] Plot Header

[David Winsemius]

On Jan 15, 2013, at 2:49 PM, Pete Brecknock wrote:

> Any recommendations for how I can embed my title below in a single red
> strip/box across the plot area in the outer margin? 
> 
> I would like to avoid the color appearing in any other area defined by the
> oma.
> 
The code used "blue" ... not sure what that last sentence meant. Or what the "single strip" was supposed to look like.

> # Example Plot
> par(mfrow=c(2,2),mar=c(4,4,2,2), oma = c(1, 1, 3, 1))
> plot(rnorm(100),1:100)
> plot(rnorm(100),1:100)
> plot(rnorm(100),1:100)
> plot(rnorm(100),1:100)
> # Title
> title("MY TITLE", outer = TRUE, cex = 1.5, adj=0, col="blue", font=2)

opar <- par(mfrow=c(2,2),mar=c(4,4,2,2), oma = c(1, 1, 3, 1))
plot(rnorm(100),1:100)
plot(rnorm(100),1:100)
plot(rnorm(100),1:100)
plot(rnorm(100),1:100)

title("MY TITLE", outer = TRUE, cex = 1.5, adj=0, col.main="blue", font=2, adj=0.5)
par(opar)

-- 
David Winsemius
Alameda, CA, USA