Problema con la tabla de riesgos que no aparece al combinar múltiples parcelas tidycmprsk::cuminc con cowplot o ggarrange

Resuelto user23416006 asked hace 54 años • 0 respuestas

Tengo problemas al intentar combinar varias parcelas de comino (con tidycmprsk), la tabla de riesgos no aparece en la trama combinada final, ya sea usando cowplot o ggarrange.

df <- tibble::tibble(id = c(1:10), 
                     time = c(3, 15, 8, 9, 7, 12, 18, 20, 6, 14), 
                     status = c(0, 1, 1, 1, 1, 0, 1, 0, 0, 1)) %>% 
          mutate(status = as.factor(status))

p <- cuminc(Surv(time, status)~1, data = df) %>% 
  ggcuminc() +
  add_risktable()

gráfico inicial con la tabla de riesgo a continuación

Intenté combinar 2 gráficos uno al lado del otro, pero las tablas de riesgo desaparecen

ggarrange(p, p, ncol = 2, nrow = 2)

parcela combinada sin las tablas de riesgo

user23416006 avatar Jan 01 '70 08:01 user23416006
Aceptado

Una opción sería cambiar a patchworkla cual, sin embargo, aún requiere construir la ggcuminctrama usando ggsurvfit::ggsurvfit_build():

library(ggsurvfit)
#> Loading required package: ggplot2
library(survival)
library(tidycmprsk)
library(patchwork)

p <- cuminc(Surv(time, status) ~ 1, data = df) |> 
  ggcuminc() +
  add_risktable()
#> Plotting outcome "1".

list(
  ggsurvfit::ggsurvfit_build(p),
  ggsurvfit::ggsurvfit_build(p)
) |> 
  wrap_plots()

stefan avatar Feb 15 '2024 19:02 stefan