ggsurvfit::ggcuminc – customized statistics with risktable_stats not working

I’m trying to plot cumulative incidence curves for a competing risk scenario with ggsurvfit::ggcuminc. I’d like to add a risk table, customized to show n.risk and cum.event in the same line (not different line), as explained in the vignette https://www.danieldsjoberg.com/ggsurvfit/reference/add_risktable.html#ref-examples (see third example).

set.seed(1)
summary(time <- rnorm(200, 50, 10))
summary(event <- factor(sample(0:2, 200, replace = TRUE, prob = c(.4,.5,.1)), levels = 0:2, labels = c("censor", "event", "comp.event")))
table(female <- sample(0:1, 200, replace = TRUE), useNA = "ifany")
data <- tibble(time, event, female)

tidycmprsk::cuminc(Surv(time, event)~female, data=data) %>% 
  ggcuminc(outcome = "event") + add_risktable(risktable_stats = "{n.risk} ({cum.event})")

However, i always get this error

Error in match.arg(rev(risktable_stats), choices = c(“n.risk”, “cum.censor”, :
‘arg’ should be one of “n.risk”, “cum.censor”, “cum.event”, “n.censor”, “n.event”

Can anyone help in understanding why this is not working, as shown in the vignette?

  • can you share the version of the packages you are using?

    – 

Leave a Comment