survfit2(Surv(time, status) ~ sex, data = df_lung) %>%
ggsurvfit() +
add_confidence_interval() +
scale_ggsurvfit()
survfit2(Surv(time, status) ~ 1, data = df_lung) %>%
ggsurvfit() +
add_confidence_interval(type = "lines") +
scale_ggsurvfit()
Run the code above in your browser using DataLab