R/plot.R

In poissonconsulting/hsi: Manipulate Habitat Suitability Indices

#' Plot HSI Data
#'
#' @param x A HSI data frame.
#' @inheritParams check_hsi
#'
#' @return A ggplot object
#' @export
#' @examples 
#' hsi_plot(hsi_data)
hsi_plot <- function(x, habitat = "Habitat", index = "Index") {
  check_hsi(x, habitat, index, unique = FALSE)
  
  requireNamespace("ggplot2")
  
  ggplot2::ggplot(data = x, ggplot2::aes_string(x = habitat, y = index)) +
    ggplot2::geom_line() +
    ggplot2::expand_limits(y = c(0,1))
}