P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 22:01:49 +02:00
Code Releases Activity

revert back to pre-antibiogram

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-02-09 13:07:39 +01:00
parent aa48c6bf53
commit 1a0dc4bf46
53 changed files with 984 additions and 1996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/plot.R
View File

@ -602,7 +602,7 @@ plot.sir <- function(x,
data$x <- factor(data$x, levels = c("S", "I", "R"), ordered = TRUE)
ymax <- ifelse(max(data$s) > 95, 105, 100)
ymax <- pm_if_else(max(data$s) > 95, 105, 100)
plot(
x = data$x,
@ -615,7 +615,7 @@ plot.sir <- function(x,
axes = FALSE
)
# x axis
axis(side = 1, at = 1:n_distinct(data$x), labels = levels(data$x), lwd = 0)
axis(side = 1, at = 1:pm_n_distinct(data$x), labels = levels(data$x), lwd = 0)
# y axis, 0-100%
axis(side = 2, at = seq(0, 100, 5))