R/plot_niches.R

In Pakillo/lump.split.pool.ENM: Comparing different ENM approaches

#' Plot niches
#'
#' @param df Data frame
#' @param suitab.column Character. Name of the column containing suitability values
#'
#' @return A ggplot object
#' @export
#' @import ggplot2
#'

plot_niches <- function(df = simdata$data2model, suitab.column = "suitab.invlogit") {

  plot.niches <- ggplot(df) +
    aes_string(x = "env", y = suitab.column, colour = "taxon") +
    ylim(0, 1) +
    labs(x = "Temperature", y = "Suitability") +
    geom_line(size = 2) +
    viridis::scale_color_viridis(discrete = TRUE) +
    theme(plot.title = element_text(size = 18)) +
    theme(legend.position = "none")

  plot.niches

}