Add a portable theme for SIR ternary plots

Add a portable theme for SIR ternary plots

theme_sir(...)

Arguments

...	additional arguments to pass

Value

theme to add to ggtern plots

Examples

library(ggplot2)
library(dplyr)
library(ggtern)

EpiCompare::hagelloch_raw %>% filter(SEX %in% c("male", "female")) %>%
  ggplot(., aes(y = tI, z = tR, color = SEX)) +
  geom_aggregate() + coord_tern() +
  labs(x = "S", y = "I", z = "R",
       color = "Gender") +
       theme_sir()
#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.