删除 ggsurvplot R 中的百分号
Removing percent sign in ggsurvplot R
我有以下代码,我用百分比而不是比例构建生存曲线。我也在打破生存时间。我想从下图中删除百分比符号,因为我想将其添加到图的 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))
一种方法是制作绘图,然后添加一个 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
为什么包维护者不让你直接用 +
做这个?
我有以下代码,我用百分比而不是比例构建生存曲线。我也在打破生存时间。我想从下图中删除百分比符号,因为我想将其添加到图的 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))
一种方法是制作绘图,然后添加一个 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
为什么包维护者不让你直接用 +
做这个?