reverted legend title change and moved text to main title

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
             }