To be used with ggsurvfit::add_risktable()
.
Examples
library(ggsurvfit)
fit <- survfit2(Surv(time, status) ~ surg, data = df_colon)
fit <- fit |> ggsurvfit() +
theme_easysurv() +
add_risktable(theme = theme_risktable_easysurv())
fit
To be used with ggsurvfit::add_risktable()
.
library(ggsurvfit)
fit <- survfit2(Surv(time, status) ~ surg, data = df_colon)
fit <- fit |> ggsurvfit() +
theme_easysurv() +
add_risktable(theme = theme_risktable_easysurv())
fit