ggcompetingrisks number at risk table

Question

I am plotting a cumulative incidence function with competing risks using the ggcompetingrisks function from the survival package. Is there any way to plot the number at risk table below this plot? Thank you!

cif_edu4 <- cmprsk::cuminc(data_CIF_year$TDT_year, data_CIF_year$TDT_status, group = data_CIF_year$Highest_Edu_Household)

windowsFonts(A = windowsFont("Times New Roman"))

ggcompetingrisks(
     fit(cif_edu4,
     multiple_panels = FALSE,
     ggtheme = theme_minimal(base_size = 15, base_family = "A"),
     font.family = "A",
     xlab = "Time from diagnosis to relapse (years)",
     ylab = "Cumulative incidence (%)") + 
     scale_x_continuous(limits = c(0,22)) + 
     scale_linetype_manual(name = "Highest parental education", values = c(1, 2, 3), labels = c("Short", "Medium", "Higher")) +
     scale_color_manual(name = "Event", values = c("gray46", "dodgerblue4"), labels = c("Death", "Relapse")) +
     ggtitle("") + 
     geom_line(size = 1) + 
     scale_y_continuous(labels = scales::percent)