plot_status_ts: Plot a time series of catch with the status overlaid with...

In seananderson/catchstatus: Methods to assign status to fish stocks based on catch series.

Description

Takes a time series of catch and plots the series with colour bars overlaid that indicate the assessed stock status.

Usage

plot_status_ts(catch,
year,
status,
xlab = "Year",
ylab = "Catch",
...)

Arguments

catch	The catch series.
year	The associated years to plot.
status	The status. Should be a factor with levels of 1:6 representing: "Undeveloped", "Developing", "Rebuilding", "Fully exploited", "Overexploited", and "Collapsed", in that order.
xlab	The x-axis label.
ylab	The y-axis label.
...	Other parameter values to pass to plot.default().

Value

A plot of the time series with coloured status bars overlaid.

Author(s)

Sean Anderson

See Also

get_froese_etal_2012_status, plot_status_stacked

Examples

set.seed(3)
x <- c(1:20, 20:1, rep(2, 5), 2:20, 19:1, rep(2, 10), 2:8)*10 + rnorm(100, 6, 8)
years <- 1901:2000
dat <- data.frame(year = years, catch = x)
x <- transform(dat, status = get_froese_etal_2012_status(catch)$status)
with(x, plot_status_ts(catch, year, status))

seananderson/catchstatus documentation built on May 29, 2019, 4:25 p.m.