library(ggsurvfit)
library(survival)
km <- 
  survfit2(
    Surv(ttdeath, death) ~ stage,
    data = gtsummary::trial
  )

ggsurvfit(km)

ggsurvfit(km) +
  khroma::scale_color_bright()

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent)

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie")

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie") +
  add_confidence_interval()

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie") +
  add_confidence_interval() +
  khroma::scale_fill_bright()

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie") +
  add_confidence_interval() +
  khroma::scale_fill_bright() +
  add_quantile(y_value = 0.5, color = "gray50")

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie") +
  add_confidence_interval() +
  khroma::scale_fill_bright() +
  add_quantile(y_value = 0.5, color = "gray50") +
  add_pvalue()

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie") +
  add_confidence_interval() +
  khroma::scale_fill_bright() +
  add_quantile(y_value = 0.5, color = "gray50") +
  add_pvalue() + 
  add_risktable()

ggsurvfit(km) +
  khroma::scale_color_bright() +
  scale_x_continuous(breaks = 0:4*6) +
  scale_y_continuous(labels = scales::percent) +
  xlab("Mois depuis le diagnostic") +
  ylab("Proportion toujours en vie") +
  add_confidence_interval() +
  khroma::scale_fill_bright() +
  add_quantile(y_value = 0.5, color = "gray50") +
  add_pvalue() + 
  add_risktable(
    stats_label = list(
      "n.risk" = "Personnes à risque",
      "cum.event" = "Nombre de décès"
    )
  )