survival: Add median survial line in sm

This commit is contained in:
Jens Sauer 2021-01-22 12:33:23 +01:00
parent fb069c4d31
commit 798ebcea99

View File

@ -78,6 +78,7 @@ sma_plot_surv_asct_dx <- function() {
sma_plot_surv_sm <- function() { sma_plot_surv_sm <- function() {
ggsurvplot(survfit(Surv(event_time_sm, event_status) ~ 1, secmal), ggsurvplot(survfit(Surv(event_time_sm, event_status) ~ 1, secmal),
data = secmal, xscale = "d_y", data = secmal, xscale = "d_y",
surv.median.line = "hv",
break.time.by = 365.25, break.time.by = 365.25,
legend = "none", legend = "none",
xlab = "Years", xlab = "Years",