(v3.0.0.9015) plotting fix

This commit is contained in:
RUG committed 2025-07-19 14:06:36 +02:00
1 parent 49274f010b
commit 6cb724a208
5 files changed
+6 -6

No files matched your search

+1 -1
View File
@@ -177,8 +177,8 @@ ggplot_sir <- function(data,
nrow = NULL,
colours = c(
S = "#3CAEA3",
SI = "#3CAEA3",
SDD = "#8FD6C4",
SI = "#3CAEA3",
I = "#F6D55C",
IR = "#ED553B",
R = "#ED553B"
+1 -1
View File
@@ -1490,7 +1490,7 @@ labels_sir_count <- function(position = NULL,
}
expand_SIR_colours <- function(colours_SIR, unname = TRUE) {
sir_order <- c("S", "SDD", "I", "R")
sir_order <- c("S", "SDD", "SI", "I", "IR", "R")
if (is.null(names(colours_SIR))) {
if (length(colours_SIR) == 1) {