diff --git a/survival.R b/survival.R index 9b28727..9b2b3e1 100644 --- a/survival.R +++ b/survival.R @@ -35,10 +35,11 @@ sma_plot_surv_dx_sex <- function() { # plot survival after transplantation sma_plot_surv_asct <- function() { ggsurvplot(survfit(surv_asct ~ 1), data = secmal, xscale = "d_y", - title = "Survival after transplantation", break.time.by = sma_break.time.by, surv.median.line = "hv", risk.table = "abs_pct", + legend = "none", + xlab = "Years", ggtheme = theme_bw()) }