plt {cwhmisc}R Documentation

Plot depending on switch, Create multiple plots with title and time stamp

Description

- pltCharMat uses output from charMat to plot numerical matrices as characters. - pltRCT executes a (series of) plotting function(s) under the control of some useful switches, may be useful in source. - histRCT creates a (series of) histogram(s), uses pltRCT. - SplomT creates a scatterplot matrix,

Usage

pltCharMat(m,tit)
pltRCT(rows, cols, tit="", f = function(x) 0, cex = 1.5, 
    reset = TRUE, outer = TRUE, oma = c(2, 2, 4, 2), mar = c(4, 4, 2, 1))
histRCT(data, rows = round(sqrt(ncol(data))), 
    cols = ceiling(ncol(data)/rows), breaks = "Sturges", mainL = deparse(substitute(data)), mainC = colnames(eval(substitute(data))))
SplomT(data, mainL = deparse(substitute(data)), xlabL = "", 
    hist = "h", adjust = 1, hist.col = trellis.par.get("strip.background")$col[5], cex.diag = 1, h.diag=0.4, colYonX = "red", colXonY = "blue", ...)

Arguments

m Numerical matrix
tit Overall title for plot. A vector of one or two elements. If an element is an expression, plotmath will be used.
rows Number of rows of panels
cols Number of columns of panels
f A function to plot the individual plot panels. It can also be a statement sequence {...}.
cex Font size used for tit
reset Should previous rows, cols be restored after execution. See note
outer Passed on to mtext.
oma Outer margin used in initial par(...).
mar Lines of margin used in initial par(...).
data Matrix or dataframe containing data, varibles in columns
breaks Breaks for histogram
mainL Label on top of scatterplot matrix or matrix of histograms
mainC Labels on top of each of the histograms, should be character vector of length = number of columns of data
xlabL Label for x axis
hist "h" = histogram, "d" = density curve, "b" = both
adjust factor to adjust smoothing window for density curve
hist.col colour for the bars of the histograms
cex.diag correction factor for font height of correlations and names in the diagonal
h.diag placement of the variable name in the diagonal panel, =0 means on the lower border, = 0.5 in the middle between lower and upper border
colYonX, colXonY colour of smoothing lines, y on x and x on y
... Parameters passed on to upper.panel,lower.panel,diag.panel

Value

These functions are called for their side effect to produce a plot.

WARNING

The sequence of functions contained in f MUST NOT contain any call to postscript, because this would try to open another ps device without closing the old one!

Note

oldpar <- par(mfrow = c(rows, cols),oma=oma,mar=mar) is called at the beginning of pltRCT. Uses splom, [lattice:extend.limits]extend.limits, and datetime .

If you have n panels you want to plot in a nearly quadratic arrangement, use rows = round(sqrt(n)), cols=ceiling(n/rows) (tending to slightly "landscape"). This is very similar to n2mfrow. histRCT drops columns with less than 2 legal (non-NA) values. For empty matrices no plot will be generated.

Author(s)

Christian W. Hoffmann, c-w.hoffmann@sunrise.ch,
http://www.wsl.ch/personal_homepages/hoffmann/index_EN , with the assistance of Deepayan Sarkar deepayan@cs.wisc.edu.

Examples

## Not run: 
 x <- rnorm(100); y <- rnorm(100)+1; z <- y+rlnorm(100)
 pltRCT(1,1,f={plot(x,y,xlab="this is my x");abline(reg=lm(y~x),lty=2);plot(x,z,pch=3)})
  nr <- 100; nc <- 8;
  data <- as.data.frame(matrix(rnorm(nr*nc),nrow=nr,ncol=nc))
  data[,nc]   <- data[,nc-2] + 0.3*data[,nc-1] #generate higher correlations
  data[,nc-1] <- data[,nc-1] + 0.9*data[,nc]
  colnames(data)<-paste("vw",letters[1:nc],sep="")
  SplomT(data,mainL="",hist="d",cex.diag=0.6,hist.col="green")
  SplomT(data,mainL="",hist="b",adjust=0.4,cex.diag = 0.5)
  pltHist(data)
  pltRCT(1, 1, tit="1 by 2 plot", f=plot(y,x-3*y) )
  pltRCT(1, 2, f={plot(x,y,xlab="my x"); abline(reg=lm(y~x),lty=2);plot(x,z,pch=3)})
  m <- matrix(rnorm(500),nrow=50,ncol=10)
  pltCharMat(m,"Random example")

## End(Not run) 

[Package cwhmisc version 2.0.1 Index]