survfit2(Surv(time, status) ~ surg, df_colon) %>%
ggsurvfit() +
add_pvalue(caption = "Log-rank {p.value}") +
scale_ggsurvfit()
survfit2(Surv(time, status) ~ surg, df_colon) %>%
ggsurvfit() +
add_pvalue("annotation", size = 5) +
scale_ggsurvfit()
Run the code above in your browser using DataLab