p <- survfit2(Surv(time, status) ~ 1, data = df_lung) %>%
ggsurvfit() +
scale_ggsurvfit()
# default ------------------------------------
p + add_risktable(theme = theme_risktable_default())
# larger text --------------------------------
p +
add_risktable(
size = 4,
theme = theme_risktable_default(axis.text.y.size = 12,
plot.title.size = 14)
)
# boxed --------------------------------------
p + add_risktable(theme = theme_risktable_boxed())
# none ---------------------------------------
p + add_risktable(theme = NULL, risktable_height = 0.20)
Run the code above in your browser using DataLab