diff --git a/R/cats_analysis.R b/R/cats_analysis.R index def8c0f979fa52550d7a2a26b9e6d3ce05bc01a4..0c6b5865a29f51199100a39d7d8d2e20ca151d9e 100644 --- a/R/cats_analysis.R +++ b/R/cats_analysis.R @@ -109,7 +109,7 @@ plot_cats_run <- function(results, catsconfig, run.name = NULL, replicate = 0) { this <- to_plot[which(to_plot$file.name == fn), ] r <- terra::rast(fn) - title <- sprintf("%s - year %d", run.name, this$year) + title <- sprintf("Adult abundance: %s - year %d", run.name, this$year) if (is.null(first)) { first <- r first_year <- this$year @@ -118,7 +118,7 @@ plot_cats_run <- function(results, catsconfig, run.name = NULL, replicate = 0) { if (is.na(cc)) { terra::plot(r, main = title) } else { - terra::plot(r, range = c(0, cc), main = title, plg=list(title="Number of adults")) + terra::plot(r, range = c(0, cc), main = title) } last <- r }