您可以通过添加调用来更改 x 标签scale_x_continuous
对于绘图对象。
由于您没有提供可重现的数据,让我们使用示例图包文档 https://www.rdocumentation.org/packages/survival/versions/3.2-7/topics/survfit.formula:
tdata <- data.frame(time =c(1,1,1,2,2,2,3,3,3,4,4,4),
status=rep(c(1,0,2),4),
n=c(12,3,2,6,2,4,2,0,2,3,3,5))
fit <- survfit(Surv(time, time, status, type='interval') ~1,
data=tdata, weight=n)
myplot <- ggsurvplot(fit, xlim = c(0,60),
break.x.by = 20, xlab = "Day", ylab = c("Survival probability"),
risk.table = "abs_pct", font.x = c(26, face = "bold"),
font.y = c(26, face = "bold"), font.tickslab = c(24),
font.legend = c(24), risk.table.fontsize = 7, risk.table.col = "black", size = 1)
现在您可以重新分配$plot
具有新的连续 x 轴的副本:
myplot$plot <- myplot$plot +
scale_x_continuous(breaks = c(0,20,40,60),
labels = c(30,50,70,90))
myplot$plot