imagep(x, y, z,
xlim, ylim, zlim,
flip.y=FALSE,
xlab="", ylab="", zlab="",
breaks, col,
drawContours=TRUE,
drawTimeRange=getOption("oceDrawTimeRange"),
drawPalette=TRUE,
mgp=getOption("oceMgp"),
mar=c(mgp[1]+if(nchar(xlab)>0) 1.5 else 1,
mgp[1]+if(nchar(ylab)>0) 1.5 else 1,
mgp[2]+1/2,
1/2),
xaxs="i",
yaxs="i",
cex=par("cex"),
adorn,
axes=TRUE,
main="",
debug=getOption("oceDebug"),
...)
z
are
measured. The values must be finite, non-missing, and in increasing
order.dim(z)[1]
must equal length(x)
, and the same for y.TRUE
indicating that the image
should be flipped top to bottom (as to produce a profile image
for a downward-looking acoustic-doppler profile).oceColorsJet
for a rainbow.TRUE
to get contours on the
image, and palette, at the colour breaks. Images with a great deal
of high-wavenumber variation look poor with contours.x
axis is a
time. If TRUE
, then an indication of the time range of the
data (not the axis) is indicated at the top-left margin of the
graph. This is useful because the labels on time axes oTRUE
to draw a palette
at the right-hand side of the main image.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.par("mar")
."i"
) or not; see
par
("xaxs").xaxs
but for y axis.par
("cex").expression
to be performed immediately after
drawing the data panel.TRUE
to get axes on the main image.filled.contour
except that with imagep
it is possible
to set the layout
outside the function, which enables the
creation of plots with many image-palette panels. Note that the contour
lines may not coincide with the colour transitions, in the case of coarse
images. Note that this does not use layout
or any of the other screen
splitting methods. It simply manipulates margins, and draws two plots
together. This lets users employ their favourite layout schemes.
The palette is drawn before the image, so that further drawing can be done on
the image if desired, if the user prefers not to use the adorn
argument.
plot.adp
.library(oce)
opar <- par(no.readonly = TRUE)
par(mfrow=c(1,1))
h <- seq(0, 50, length.out=200)
drho <- seq(1, 3, length.out=200)
speed <- sqrt(9.8*outer(drho/1024, h, "*"))
imagep(h, drho, speed, xlab="Equivalent depth [m]",
ylab=expression(paste(Delta*rho, "[kg/m^3]")),
zlab="Internal-wave speed [m/s]")
par(opar)
Run the code above in your browser using DataLab