R 使用gcuminc，如何使用逗号格式化风险表

发布于04月03日

下面是一个可复制的例子.我想不出用逗号来格式化我的risktable中的数字，甚至使用scale::comma.

library(ggplot2)
library(survival)
library(tidycmprsk)
library(ggsurvfit)
library(scales)

time<-rep(1:10, times=300)
status<-rep(0:2, times=1000)
status <- factor(status, levels=c(0,1,2))
df<-data.frame(time, status)

fit <- cuminc(Surv(time, status) ~ 1, df) 

fit %>% 
  ggcuminc() +
  labs(x = "Years",
       y = "Probability") +
  add_risktable(risktable_stats=c("n.risk") )

我很好奇答案是否在risktable themes.

推荐答案

ggsurvfit支持glue语法，也就是说，你可以用{}来格式化统计数据，例如，用逗号格式化你的数字，你可以用"{scales::comma(n.risk)}".但是，要仍然获得n.risk作为行标签，您必须使用stats_label=手动设置它.

library(ggplot2)
library(survival)
library(tidycmprsk)
library(ggsurvfit)
library(scales)

time <- rep(1:10, times = 300)
status <- rep(0:2, times = 1000)
status <- factor(status, levels = c(0, 1, 2))
df <- data.frame(time, status)

fit <- cuminc(Surv(time, status) ~ 1, df)

fit %>%
  ggcuminc() +
  labs(
    x = "Years",
    y = "Probability"
  ) +
  add_risktable(
    risktable_stats = c("{scales::comma(n.risk)}"),
    stats_label = c("n.risk")
  )