Есть ли способ перейти от x к 100 по оси R?

Question

Я хочу построить данные анализа выживаемости в R с использованием пакетов Survial и Survminer. Моя вероятность выживания колеблется от 0% до примерно 5%. Мне нужен график, у которого ylim установлено от 0 до 20, но также должно быть 100% по оси. Выглядит примерно так:

Я делаю это в то время:

    tlr_plot <- ggsurvplot(survFit_TLR, fun = "event", conf.int = FALSE, risk.table = 'nrisk_cumevents', title="TLR", legend = "none",  tables.theme = theme_cleantable(),surv.scale="percent")
tlr_plot$plot <- tlr_plot$plot +
  scale_x_discrete(breaks = c(0,180,365,540,730), labels = c(0,180,365,540,730), limits=0:741) 
tlr_plot