library(visR)
# Estimate KM curves by treatment group
survfit_object <- survival::survfit(data = adtte, survival::Surv(AVAL, 1 - CNSR) ~ TRTP)
## plot without confidence intervals (CI)
p <- visR::visr(survfit_object)
p
# add CI to plot with default settings
p %>% add_CI()
# change transparency of CI ribbon
p %>% add_CI(alpha = 0.9, style = "ribbon")
# plot CI as a step line instead of ribbon
p %>% add_CI(alpha = 0.1, style = "step")
# change linetype of CI
p %>% add_CI(style = "step", linetype = 1)
Run the code above in your browser using DataLab