cwhmisc: mult.fig.p – R documentation

Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!

mult.fig.p

Plot Setup for multiple plot, incl. main title

Description

Easy Setup for plotting multiple figures (in a rectangular layout) on one page. It allows to specify a main title, a bottom line, and uses smart defaults for several par calls.

Usage

mult.fig.p(nr.plots, mfrow, mfcol,
         marP = rep(0, 4),  mgp = c(1.5, 0.6, 0),
         mar = marP + 0.1 + c(4, 4, 2, 1),
         main = NULL, sub = NULL, adj.sub = 0.5,
         tit.wid = if (is.null(main)) 0 else 1 + 1.5*cex.main,
         quiet = .Device == "postscript",
         cex.main = par("cex.main"),
         col.main = par("col.main"),
         font.main = par("font.main"), ...)

Arguments

`nr.plots`	integer; the number of plot figures you'll want to draw.
`mfrow`	instead of `nr.plots`: integer(2) vector giving the rectangular figure layout for `par(mfrow= .)`
`mfcol`	instead of `nr.plots`: integer(2) vector giving the rectangular figure layout for `par(mfcol= .)`
`marP`	numeric(4) vector of figure margins to add (“Plus”) to default `mar`, see below.
`mgp`	argument for `par(mpg= .)` with a smaller default than usual.
`mar`	argument for `par(mar= .)` with a smaller default than usual, using the `marP` argument, see above.
`main`	character. The main title to be used for the whole graphic.
`sub`	character. The bottom line to be used for the whole graphic.
`adj.sub`	The value of adj determines the way in which `sub` is justified. A value of 0 produces left-justified text, 0.5 centered text and 1 right-justified text. See `par(adj= .)`
`tit.wid`	numeric; the vertical width to be used for the main title.
`quiet`	Suppress request to restore graphical parameters.
`cex.main`	numeric; the character size to be used for the main title.
`col.main`	string; name of the color to be used for the main title.
`font.main`	numeric; number of the font to be used for the main title.
`...`	Further arguments to `mtext` for `main` and `sub`.

Value

A list with two components that are lists themselves, a subset of par(),

`new.par`	the current `par` settings.
`old.par`	the `par` before the call.

Author(s)

Martin Maechler, maechler@stat.math.ethz.ch,
modified by Christian W. Hoffmann, christian@echoffmann.ch

Examples

## Not run: 
AA <- mult.fig.p(5, main= "Sine functions of different frequencies")
x <- seq(0, 1, len = 201)
for (n in 1:5)
  plot(x, sin(n * pi * x), ylab ="", main = paste("n = ",n))
par(AA$old.par)

rr <- mult.fig.p(mfrow=c(4,2), main= "Sine functions", cex = 1.5,
               marP = - c(0, 1, 2, 0))
for (n in 1:8)
  plot(x, sin(n * pi * x), type = 'l', col="red", ylab ="")
str(rr)
par(rr$old.par)
## Look at the par setting *AFTER* the above:
str(do.call("par", as.list(names(rr$new.par))))

## End(Not run)

cwhmisc

Miscellaneous Functions for Math, Plotting, Printing, Statistics, Strings, and Tools

v6.6

GPL (>= 2)

Authors

Christian W. Hoffmann

Initial release

2018-08-24, 10:40:10