ggsurvfit <-
survfit2(Surv(time, status) ~ surg, data = df_colon) %>%
ggsurvfit(linewidth = 1) +
add_confidence_interval()
# use the function defaults
ggsurvfit + scale_ggsurvfit()
# specify additional scales
ggsurvfit +
scale_ggsurvfit(x_scales = list(breaks = seq(0, 8, by = 2)))
Run the code above in your browser using DataLab