plot.dive | R Documentation |
Plot a dive profile.
## S3 method for class 'dive' plot(x, ..., main=deparse(substitute(x)), key.gases=c("text", "legend", "none"), text.cex=1, text.verticals=TRUE, col.gases=1:length(tanklist(x)), legendpos=c("top","bottom", "left", "right", "topleft", "topright", "bottomleft", "bottomright", "center"))
x |
The dive profile. An object of class |
... |
Arguments passed to |
main |
Overall label for plot. |
key.gases |
String indicating whether the plot should be annotated with labels indicating what gas is breathed, and how to do the annotation. |
text.cex |
Numeric value controlling the size of text when |
text.verticals |
Logical flag indicating whether the plot should indicate what gas is breathed during ascent and descent between stages, as well as during the main stages of the dive. |
col.gases |
Colours to be used to represent each of the breathing gases used in the dive. Either a numeric vector of colour codes, or a vector of character strings identifying colours. |
legendpos |
Character string determining the position of the
legend, when |
A representation of the dive profile is plotted.
NULL.
.
dive
# Dive to 25 m for 20 min with safety stop d1 <- dive(c(25,20),c(5,5)) # plot it plot.dive(d1) # Dive to 18 m for 30 min with safety stop, on Nitrox EANx 36 d3 <- dive(nitrox(0.36), c(18,30), c(5,3)) plot.dive(d3) # Real dive profile data(baron) d4 <- dive(nitrox(0.30), baron[, 1:2]) plot(d4, main="Baron Gautsch dive")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.