如何修改ggcuminc绘图颜色？含单分组cuminc对象场景

问题原因 #

当使用Surv(time, status) ~ 1生成cuminc对象时，由于无明确分组变量，ggcuminc默认以不同结局作为区分依据，但未将颜色/填充映射绑定到内置的.outcome变量，导致手动设置的颜色参数无法生效。

解决方案 #

在ggcuminc()中明确指定颜色和填充的映射变量为.outcome，即可让自定义颜色规则生效。修改后的完整代码如下：

library(tidycmprsk)
library(ggsurvfit)
library(MASS)
library(dplyr)

Melanoma <- 
  Melanoma %>% 
  mutate(
    status = as.factor(recode(status, `2` = 0, `1` = 1, `3` = 2))
  )

cuminc(Surv(time, status) ~ 1, data = Melanoma) %>% 
  ggcuminc(outcome = c("1", "2"), aes(color = .outcome, fill = .outcome)) + 
  labs(x = "Days") + 
  add_confidence_interval() +
  add_risktable() +
  scale_color_manual(values = c('#54738E', '#82AC7C')) +
  scale_fill_manual(values = c('#54738E', '#82AC7C'))

补充说明 #

• .outcome是tidycmprsk内置变量，专门用于标识不同的竞争风险结局类别
• 若需同步调整风险表的样式匹配曲线颜色，可在add_risktable()中补充主题设置：

add_risktable(theme_risktable = theme(
  strip.background = element_rect(fill = "#f0f0f0"),
  strip.text = element_text(color = "black")
))

内容的提问来源于stack exchange，提问作者CharlesLDN