survsup (version 0.0.2)

cat4: Convenience function for four-category color scheme

Description

Convenience function to change the color scheme to four colors: Green, blue, red, and yellow; i.e. like the ski slopes but with yellow instead of black.

Usage

cat4(g, reverse = FALSE)

Arguments

g

ggplot object containing a Kaplan-Meier plot

reverse

should the order of the colors be reversed?

Value

Returns a ggplot object

Examples

# NOT RUN {
library(survival)
library(dplyr)
veteran %>%
    survfit(Surv(time, status) ~ celltype, data = .) %>%
   plot_survfit(cuminc = FALSE) %>%
   cat4(reverse = TRUE)
# }