并非完全是您问题的答案(您可能需要联系的开发人员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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句