Plot catch data over time

Source: R/catches.R

Functions for plotting catch data over time as a stacked bar plot.

tidy_catch(dat, areas = NULL)

plot_catch(dat, ylab = "Catch", xlim = c(1954, 2017), units = NULL,
  unreliable = c(1996, 2006), blank_plot = FALSE)

Arguments

dat

Input data frame. For tidy_catch() should be from get_catch(). For plot_catch() should be from tidy_catch() or be formatted similarly. See details.
areas

Fisheries and Oceans major statistical areas (eg. 3C, 3D, 5A, 5B, etc.). See gfplot::pbs_areas for a lookup table with descriptions. Enter as a regular expression. For example, c("5A", "5B") or c("5[CDE]+", "5[AB]+").
ylab

Y axis label.
xlim

X axis limits in years.
units

A named character vector with names referring to text that will be pasted into the y-axis label and a value defining the quantity to divide the value column by for that unit label. Defaults to c('1000 t' = 1000000, 't' = 1000, 'kg' = 1) if units = NULL.
unreliable

An optional numeric vector defining years before which the data are less reliable. Leave as NA to omit.
blank_plot

If TRUE then a blank plot with appropriate axes will be returned. Used in the synopsis report.

Details

  • tidy_catch() Prepares PBS data for plot_catch(). This works across one or multiple species.

  • plot_catch() Plots catch. The input data frame must come from tidy_catch() or have the columns (in any order): year, gear, value (containing catches or landings).

Examples

# NOT RUN {
d <- get_catch("lingcod")
tidy_catch(d, areas = c("5[CDE]+", "5[AB]+", "3[CD]+")) %>%
  plot_catch()

tidy_catch(d, areas = c("5A", "5B")) %>%
  plot_catch()
# }