Formatar gráfico ggcuminc - Incidência Cumulativa

dúvidas
1

Prezados,
Estou em um projeto para avaliar o risco competitivo entre minha variável de interesse e o evento competitivo. Criei o seguinte código que me retornou um gráfico.

*cuminc(Surv(TEMPO_ACOMPANHAMENTO,DESFECHO,type=“mstate”) ~ SEXO, BASE_TEV) %>% *

  • ggcuminc(outcome = c(“1”,“2”)) + xlim(0,90) + ylim(0,0.2) + *
  • add_risktable() +*
  • scale_x_continuous(breaks = seq(0, 90, by = 10), limits = c(0, 90)) +*
  • theme_classic() + theme(legend.position = ‘bottom’, legend.direction = “horizontal”)*

image
image935×486 21.3 KB

Eu gostaria de inserir algumas informações e formatações, mas não estou tendo sucesso.

1 - Inserir o p-valor (0,52 e 0,88) e o nome das variáveis (morte e não morte) ao final da linha superior e inferior;
2 - Trocar a legenda, pois está vindo 1 e 2. Gostaria de trocar para morte e não morte. Tentei usar “rename” dentro de “outcome” e não funcionou.

Desculpe, mas não consegui formatar o código acima.

Grato.

2

Olá! Tudo bem? Não consigo reproduzir exatamente o seu exemplo, mas fiz um improviso aqui com o dado padrão do pacote. Você pode acessar mais informações sobre nossa ideia na live desta ultima semana.

library(tidycmprsk)
library(ggsurvfit)
library(tidyverse)

trial_ggplot <- trial |> 
  mutate(
    death_cr_ggplot = case_when(
      death_cr == "censor" ~ "censor",
      death_cr == "death other causes" ~ "M.O.C.",
      TRUE ~ "M.C."
    )  |> 
      factor()
  )

cuminc(Surv(ttdeath, death_cr_ggplot) ~ trt, trial_ggplot) %>%
  ggcuminc(outcome = c("M.C.", "M.O.C.")) +
  geom_text(
    data = tibble(ttdeath = 30.01, Y = .32, label = "Valor-P: 50%"),
    aes(x = ttdeath, y = Y, label = label)
  ) +
  scale_x_continuous(limits = c(0, 32.8))