plot.section: Plot a CTD section

Description

Plot a CTD section.

Usage

## S3 method for class 'section':
plot(x,
     which,
     eos=getOption("eos", default='unesco'),
     at=NULL,
     labels=TRUE,
     grid=FALSE,
     contourLevels=NULL,
     contourLabels=NULL,
     stationIndices,
     coastline="coastlineWorld",
     xlim=NULL,
     ylim=NULL,
     map.xlim=NULL,
     map.ylim=NULL,
     xtype=c("distance", "track", "latitude", "longitude"),
     ytype=c("depth", "pressure"),
     ztype=c('contour', 'image'),
     legend.loc="bottomright",
     adorn=NULL,
     showStations=FALSE,
     showBottom=TRUE,
     mgp=getOption("oceMgp"),
     mar=c(mgp[1]+1, mgp[1]+1, mgp[2], mgp[2] + 0.5),
     col=par("col"), cex=par("cex"), pch=par("pch"),
     debug=getOption("oceDebug"),
     ...)

Arguments

a section object, e.g. as created by makeSection.

which

list of desired plot types. If not supplied, the value "temperature" is assumed. There may be up to four panels in total, and the desired plots are placed in these panels, in reading order. The codes for the plot ty

eos

either "unesco" or "teos". If the latter, then the computer must have the TEOS library installed; see teos. The effect of using "teos" is to plot ``absol

if NULL (the default), the x axis will indicate the distance of the stations from the first in the section. (This may give errors in the contouring routine, if the stations are not present in a geographical order.) I

labels

either a logical, indicating whether to put labels on the x axis, or a vector that is a list of labels to be placed at the x positions indicated by at.

grid

if TRUE, points are drawn at data locations.

contourLevels

optional contour levels

contourLabels

optional contour labels

stationIndices

optional list of the indices of stations to use. Note that an index is not a station number, e.g. to show the first 4 stations, use station.indices=1:4.

coastline

optional coastline to be used in a station map

xlim

optional limit for x axis (only in sections, not map)

ylim

optional limit for y axis (only in sections, not map)

map.xlim

optional xlim for station location, which can be helpful in ensuring that a recognizable coastline can be seen. (This value is used instead of map.ylim, if both are supplied.)

map.ylim

optional ylim for station location, which can be helpful in ensuring that a recognizable coastline can be seen

xtype

type of x axis, for contour plots, either "distance" for distance (in km) to the first point in the section, "track" for distance along the cruise track, or "longitude" or "latitude"

ytype

type of y axis for contour plots, either "pressure" for pressure (in dbar, with zero at the surface) or "depth" for depth (in m below the surface, calculated from pressure with

ztype

string indicating whether to use contours or an image.

legend.loc

location of legend, as supplied to legend.

adorn

list of expressions to be executed for the panels in turn, e.g. to adorn the plots. If the number matches the number of panels, then the strings are applied to the appropriate panels, as they are drawn from top-left to bottom-righ

showStations

logical indicating whether to draw station numbers on maps.

showBottom

logical indicating whether to draw the bottom, or a character string indicating the method for plotting the bottom. The allowed methods are: polygon, which fills the space to the bottom, or lines, which d

mgp

3-element numerical vector to use for par(mgp), and also for par(mar), computed from this. The default is tighter than the R default, in order to use more space for the data and less for the axes.

mar

value to be used with par("mar").

col

colour, as in par("col").

cex

value to be used with par("cex"), for any use of points, e.g. for which="data".

pch

value to be used with par("pch") (see cex, above.)

debug

a flag that turns on debugging. Set to 1 to get a moderate amount of debugging information, or to 2 to get more.

...

optional arguments passed to the contouring function, e.g. using labcex=1 will increase the size of contour labels.

Value

None.

Details

Creates a summary plot for a CTD section, with one panel for each value of which. The codes are as follows.

which=1or"temperature"for temperature contours (the default)
which=2or"salinity"for salinity contours
which=3or"sigmaTheta"for sigma-theta contours
which=4or"nitrate"for nitrate concentration contours
which=5or"nitrite"for nitrite concentration contours
which=6or"oxygen"for oxygen concentration contours
which=7or"phosphate"for phosphate concentration contours
which=8or"silicate"for silicate concentration contours
which=20or"data"for a dot for each data location
which=99or"map"for a location map

The y-axis for the contours is pressure, plotted in the conventional reversed form, so that the water surface appears at the top of the plot. The x-axis is more complicated. If at is not supplied, then the routine calculates x as the distance between the first station in the section and each of the other stations. (This will produce an error if the stations are not ordered geographically, because the contour routine cannot handle non-increasing axis coordinates.) If at is specified, then it is taken to be the location, in arbitrary units, along the x-axis of labels specified by labels; the way this works is designed to be the same as for axis.

Examples

Run this code

library(oce)
## Halifax Harbour
data(section)
data(coastlineHalifax)
plot(section, coastline=coastlineHalifax)

## Gulf Stream
data(a03)
GS <- subset.oce(a03, indices=124:102)
GSg <- sectionGrid(GS, p=seq(0,2000,100))
data(coastlineWorld)
plot(GSg, coastline=coastlineWorld, map.xlim=c(-80,-60))
                                        # Illustate adornment
plot(GSg, coastline=coastlineWorld, map.xlim=c(-80,-60),
     adorn=expression({abline(v=200,col='blue')}))

plot(GSg, which='sigmaTheta', ylim=c(1000,0),
     contourLevel=seq(24, 29, 0.5),
     contourLabel=c("24", "", "25","","26","","27","","28","","29"))

## image, with coloured dots to show if grid smoothing was OK
plot(GSg, which=1, ztype='image')
col <- oceColorsJet(100)[rescale(GS[['temperature']], rlow=1, rhigh=100)]
points(GS[['distance']], GS[['depth']], pch=20, cex=1.2)
points(GS[['distance']], GS[['depth']], pch=20, cex=1, col=col)