From 4e770a522facdaa62d748b5743444ba9f2a92441 Mon Sep 17 00:00:00 2001
From: Andreas Gattringer <andreas.gattringer@univie.ac.at>
Date: Mon, 5 Jun 2023 13:30:12 +0200
Subject: [PATCH] reverted legend title change and moved text to main title
---
R/cats_analysis.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/cats_analysis.R b/R/cats_analysis.R
index def8c0f..0c6b586 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
}
--
GitLab