Nothing
mult.fig <-
function(nr.plots, mfrow, mfcol,
marP = rep(0, 4), mgp = c(if(par("las") != 0) 2. else 1.5, 0.6, 0),
mar = marP + 0.1 + c(4,4,2,1), oma = c(0,0, tit.wid, 0),
main = NULL, tit.wid = if (is.null(main)) 0 else 1 + 1.5*cex.main,
cex.main = par("cex.main"), line.main = cex.main - 1/2,
col.main = par("col.main"),
font.main = par("font.main"),
...)
{
## Purpose: 'MULTiple FIGures' incl. title and other good defaults
## -------------------------------------------------------------------------
## Arguments: -- Either ONE of the first 3 arguments --
### =========> help(mult.fig)
## -------------------------------------------------------------------------
## Author: Martin Maechler, 1990 (UW, Seattle) -- 1995
## -------------------------------------------------------------------------
use.row <- missing(mfcol)
if (use.row)
if (missing(mfrow)) {
if (missing(nr.plots))
stop("must either specify 'nr.plots', 'mfrow' or 'mfcol' !")
else mfrow <- n2mfrow (nr.plots)
}
old.par <-
if(use.row) par(mfrow = mfrow, oma = oma, mar = mar, mgp= mgp)
else par(mfcol = mfcol, oma = oma, mar = mar, mgp= mgp)
##---- now go ahead :
if(!is.R())
frame()
if (!is.null(main)) {# Do title *before* first plot!
if(is.R()) plot.new()
mtext(main, side = 3, outer = TRUE,
line = line.main,
cex = cex.main,
font = font.main, col = col.main, ...)
if(is.R()) par(new=TRUE)# reverse `plot.new()' above
}
invisible(list(new.par = par(c("mfrow","mfcol","oma","mar","mgp")),
old.par = old.par))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.