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

一种方法是绘制图，然后添加一个@cd coverage; \ for dir in $(dir */coverage-final.json); do \ fn="$${dir}coverage-final.json"; \ newName="$${dir::-1}.json"; \ echo "cp $${fn} $${newName}"; \ cp $$fn $$newName; \ done; npx nyc merge coverage coverage-final.json 调用，该调用将y轴替换为您想要的任何东西。

scale_y_continuous

为什么软件包维护者不让您直接使用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 执行此操作？