mult.fig {sfsmisc} | R Documentation |
Easy Setup for plotting multiple figures (in a rectangular layout) on
one page. It allows to specify a main title and uses smart
defaults for several par
calls.
mult.fig(nr.plots, mfrow, mfcol, marP = rep(0, 4), mgp = c(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, quiet = .Device == "postscript", cex.main = par("cex.main"), line.main = cex.main - 1/2, col.main = par("col.main"), font.main = par("font.main"), ...)
nr.plots |
integer; the number of plot figures you'll want to draw. |
mfrow |
instead of |
mfcol |
instead of |
marP |
numeric(4) vector of figure margins to add
(“Plus”) to default |
mgp |
argument for |
mar |
argument for |
oma |
argument for |
main |
character. The main title to be used for the whole graphic. |
tit.wid |
numeric specifying the vertical width to be used for the
main title; note that this is only used for the default value of
|
cex.main |
numeric; the character size to be used for the main title. |
line.main |
numeric; the line at which the title. |
col.main, font.main |
color and font for main title; see
|
quiet |
logical; if |
... |
Further arguments to |
A list
with two components that are lists themselves, a
subset of par()
,
new.par |
the current |
old.par |
the |
Martin Maechler, UW Seattle, 1990.
opl <- mult.fig(5, main= expression("Sine Functions " * sin(n * pi * x))) x <- seq(0, 1, len = 201) for (n in 1:5) plot(x, sin(n * pi * x), ylab ="", main = paste("n = ",n)) par(opl$old.par) rr <- mult.fig(mfrow=c(5,1), main= "Cosinus Funktionen", cex = 1.5, marP = - c(0, 1, 2, 0)) for (n in 1:5) plot(x, cos(n * pi * x), type = 'l', col="red", ylab ="") str(rr) par(rr$old.par) ## The *restored* par settings: str(do.call("par", as.list(names(rr$new.par))))