From b08320bd3b7394bd679d8e045efc9d3e67624c01 Mon Sep 17 00:00:00 2001
From: Jens Sauer <jsauer65@gmail.com>
Date: Sun, 17 Jan 2021 11:36:21 +0100
Subject: [PATCH] survival/sma_plot_surv_asct: Adjust output

Change labels.
---
 survival.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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())
 }