library(visR)
# Estimate KM curves by treatment group
survfit_object <- survival::survfit(data = adtte, survival::Surv(AVAL, 1 - CNSR) ~ TRTP)
## plot without confidence intervals
p <- visR::visr(survfit_object)
p
# add censoring to plot
p %>% visR::add_CNSR()
# change censor symbol shape
p %>% visR::add_CNSR(shape = 1)
# change size and shape
p %>% visR::add_CNSR(size = 4, shape = 2)
Run the code above in your browser using DataLab