Learn R Programming

analogue (version 0.4-0)

plot.cma: Draws stripcharts of close modern analogue results

Description

Draws stripcharts of close modern analogue results. stripchart produces one dimensional scatter plots (or dot plots) of the given data. These plots are a good alternative to boxplot's when sample sizes are small.

Usage

## S3 method for class 'cma':
plot(x, method = c("overplot", "jitter", "stack"),
   jitter = 0.1, vertical = FALSE,
   draw.quant = TRUE, xlab = NULL, ylab = "",
   main = "", cex.axis = NULL, ...,
   col.quant = "red", lty.quant= "dashed")

Arguments

x
an object of class "cma".
method
the method to be used to separate coincident points. The default method "overplot" causes such points to be overplotted, but it is also possible to specify "jitter" to jitter the points, or "stack" have
jitter
when method="jitter" is used, jitter gives the amount of jittering applied.
vertical
when vertical is TRUE the plots are drawn vertically rather than the default horizontal.
draw.quant
logical; should the quantiles be drawn on the stripchart?
xlab,ylab,main
Graphical parameters
cex.axis
The magnification to be used for axis annotation relative to the current setting of cex. See par.
...
additional arguments passed to stripchart
col.quant,lty.quant
colour and line type in which to drawn the quantile lines.

Value

  • A plot is produced on the currently active device. Also invisibly returns a list with the following components:
  • distancesa vector of stacked distances extracted from object.
  • groupsa factor listing the fossil sample for which the distances are the distances to the close modern analogues for the training set.

Details

Simple wrapper to stripchart.

See Also

stripchart, or boxplot for an alternative representation.

Examples

Run this code
## continue the RLGH and SWAP example from ?join
example(join)

## analog matching between SWAP and RLGH core
swap.analog <- analog(swapdiat, rlgh, method = "chord")
swap.analog
summary(swap.analog)

## close modern analogues
swap.cma <- cma(swap.analog)

## plot the results
## many samples so reduce the label and point size
plot(swap.cma, cex.axis = 0.6, cex = 0.6)

Run the code above in your browser using DataLab