survival/sma_plot_surv_asct: Adjust output

Change labels.
2021-01-17 11:36:21 +01:00 · 2021-01-17 11:36:21 +01:00 · b08320bd3b
commit b08320bd3b
parent beedddda01
1 changed files with 2 additions and 1 deletions
--- 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())
 }