r - 在风险表中为大数字添加逗号分隔符

Question

当风险表中的数字大于 1,000 时，如何将它们用逗号分隔？

library(survival)
library(survminer)
df <- data.frame(patient = seq(1,10000,1),
                 status = sample(0:1, 10000, replace = T),
                 sex = sample(0:1, 10000, replace = T),
                 time = runif(10000,0,5))

fit <- survfit(Surv(time, status) ~ sex, data = df)
ggsurv <- ggsurvplot(fit, risk.table = TRUE, censor = F,
                     tables.theme = clean_theme())
ggsurv

标签： r

Answer 1

我认为没有选项可以在其中添加它ggsurvplot，因此您需要破解ggsurv对象来更改它：

ggsurv$table$layers[[1]]$data$llabels <- 
  scales::comma(ggsurv$table$layers[[1]]$data$llabels)

ggsurv