Learn R Programming

SWMPrExtension (version 0.3.12)

annual_range: Annual Range Timeseries

Description

Assess variability within each season for a single year

Usage

annual_range(swmpr_in, ...)

# S3 method for swmpr annual_range(swmpr_in, param = NULL, target_yr = NULL, criteria = NULL, log_trans = FALSE, converted = FALSE, criteria_lab = "WQ Threshold", plot_title = FALSE, plot = TRUE, ...)

Arguments

swmpr_in

input swmpr object

...

additional arguments passed to other methods. See assign_season

param

chr string of variable to plot

target_yr

numeric, the target year that should be compared against the historic range. If target year is not specified then the dot will not be plotted.

criteria

numeric, a numeric criteria that will be plotted as a horizontal line

log_trans

logical, should y-axis be log? Defaults to FALSE

converted

logical, were the units converted from the original units used by CDMO? Defaults to FALSE. See y_labeler for details.

criteria_lab

chr, label for the threshold criteria defined in criteria. Defaults to "WQ Threshold"

plot_title

logical, should the station name be included as the plot title? Defaults to FALSE

plot

logical, should a plot be returned? Defaults to TRUE

Value

Returns a ggplot object

Details

This function summarizes average daily values, average daily minimums/maximums, and absolute minimums/maximums across user-defined seasons for a target year (target_yr).

The user also has the option to add a threshold hold line using the criteria argument. Typically, this value is a water quality threshold, which is why criteria_lab defaults to 'WQ Threshold'. However, the user has the option to specify any other type of threshold they wish. when doing so, the value for criteria_lab should be changed accordingly.

See Also

ggplot, assign_season, y_labeler

Examples

Run this code
# NOT RUN {
# }
# NOT RUN {
## get data, prep
data(elksmwq)
dat <- elksmwq

dat <- qaqc(elksmwq, qaqc_keep = c('0', '3', '5'))
do_plt <- annual_range(dat, param = 'do_mgl', target_yr = 2012)
do_plt <- annual_range(dat, param = 'do_mgl', target_yr = 2012, criteria = 2)
# }

Run the code above in your browser using DataLab