R：kaplan Meier 图中存在风险的对齐数

Question

我正在使用 jskm 包来绘制带有风险数字表的 Kaplan Meier 曲线，但我找不到一种方法使风险数字与 x 轴上的刻度对齐（应该向左移动一点） 。该jskm功能似乎没有选项。我可以以某种方式使用ggplot它吗？

library(survival)
library(jskm)
data(colon)
fit <- survfit(Surv(time,status)~rx, data=colon)
jskm(fit, timeby=500, table = TRUE)

Answer 1

不完全是您问题的答案（您可能需要联系开发人员jskm来解决问题） - 但如果您使用survminer包，它会给出正确的对齐方式：

library(survminer)
data(colon)
fit <- survfit(Surv(time,status)~rx, data=colon)
ggsurvplot(fit, break.time.by=500, risk.table = T)

UPD。要删除下轴，您可以将相应的元素替换为element_blank：

p1 <- ggsurvplot(fit, break.time.by=500, risk.table = T)
p1$table$theme$axis.title.x <- element_blank()
p1$table$theme$axis.line.x <- element_blank()
p1$table$theme$axis.text.x <- element_blank()
p1$table$theme$axis.ticks.x <- element_blank()
p1