Удаление знака процента в ggsurvplot R

Question

У меня есть следующий код, где я строю кривую выживания с процентами вместо пропорций. Я также ломаю время выживания на десятки. Я хотел бы удалить символы процента из следующего графика, поскольку вместо этого я хотел бы добавить это к заголовку ylab графика.

library(survival)
library(survminer)
data(lung)
fit <- survfit(Surv(time, status) ~sex, data = lung)
ggsurvplot(fit, risk.table = TRUE, axes.offset = FALSE,
           break.y = 0.10,
           surv.scale = c("percent"),
           xlim = c(0, 1050))

Answer 1

Один из подходов заключается в создании графика, а затем добавлении вызова scale_y_continuous, который заменяет ось Y на все, что вы хотите.

plot <- ggsurvplot(fit, risk.table = TRUE, axes.offset = FALSE,
           xlim = c(0, 1050),
           ylab = "Survival Probability (%)")
plot$plot <- plot$plot + 
  scale_y_continuous(breaks = seq(0,1,by=0.1), labels = seq(0,100,by=10))
plot

Почему сопровождающие пакета не позволяют вам делать это напрямую с +?