R/plot-schedule.R

In poissonconsulting/ypr: Yield Per Recruit

#' Plot Population or Ecotypes Schedule Terms
#'
#' Produces a bivariate line plot of two schedule terms.
#'
#' @inheritParams params
#' @param x A string of the term on the x-axis.
#' @param y A string of the term on the y-axis.
#' @return A ggplot2 object.
#' @family schedule
#' @family plot
#' @export
#' @examples
#' ypr_plot_schedule(ypr_population())
ypr_plot_schedule <- function(population, x = "Age", y = "Length") {
  rlang::check_installed("ggplot2")
  rlang::check_installed("scales")

  schedule <- ypr_tabulate_schedule(object = population)

  chk_string(x)
  chk_subset(x, values = colnames(schedule))

  chk_string(y)
  chk_subset(y, values = colnames(schedule))

  labels <- if (sum(schedule[[y]]) >= 1000) scales::comma else ggplot2::waiver()
  ecotype <- "Ecotype" %in% names(schedule) && length(unique(schedule$Ecotype)) > 1
  group <- if (ecotype) "Ecotype" else NULL
  color <- if (ecotype) "Ecotype" else NULL

  ggplot2::ggplot(data = schedule, ggplot2::aes(x = .data[[x]], y = .data[[y]], group = group, color = color)) +
    ggplot2::geom_line() +
    ggplot2::scale_y_continuous(y, labels = labels) +
    ggplot2::expand_limits(x = 0, y = 0)
}