如何在 ggcompetingrisks 中指定图的布局？

How do I specify the layout of plots in ggcompetingrisks?

下面是示例代码：

set.seed(2)
failure_time <- rexp(100)
status <- factor(sample(0:3, 100, replace=TRUE), 0:3,
                 c('no event', 'death', 'progression','other'))
disease <- factor(sample(1:6,  100,replace=TRUE), 1:6,
                  c('BRCA','LUNG','OV','CANCER','AIDS','HEART'))

fit <- cuminc(ftime = failure_time, fstatus = status,
               group = disease)

ggcompetingrisks(fit)

R 自动生成一个按 3 列、2 行组织的图。我希望它被排列成两列和三行。有没有办法处理 ggcompetingrisks，或者我必须从头开始绘制所有内容？

据我所知，没有可以执行此操作的选项。这意味着您应该更改功能代码：

  1. 调用函数代码：

    trace(survminer:::ggcompetingrisks.cuminc, edit = T)

  2. 在第 23 行将 ncol = 2 添加到 facet_wrap(~group)，例如：

    pl <- ggplot(df, aes(time, est, color = event)) + facet_wrap(~group, ncol = 2)

  3. 正常绘图：

    ggcompetingrisks(fit)