r - 删除 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))

标签： rsurvival-analysissurvival

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

为什么包维护者不让你直接使用+?