survival: Add median survial line in sm

2021-01-22 12:33:23 +01:00 · 2021-01-22 12:33:23 +01:00 · 798ebcea99
commit 798ebcea99
parent fb069c4d31
1 changed files with 1 additions and 0 deletions
--- a/survival.R
+++ b/survival.R
@ -78,6 +78,7 @@ sma_plot_surv_asct_dx <- function() {
 sma_plot_surv_sm <- function() {
 	ggsurvplot(survfit(Surv(event_time_sm, event_status) ~ 1, secmal),
 		   data = secmal, xscale = "d_y",
+		   surv.median.line = "hv",
 		   break.time.by = 365.25,
 		   legend = "none",
 		   xlab = "Years",