如何在R中的风险表下（不在Kaplan Meier图和风险表中间）获取脚注？

Question

我正在构建一个带有风险表的 Kaplan Meier 图，还想添加脚注。但是，脚注位于风险表和图表之间。我使用了 Survival、survminer 和 ggplot2 软件包。

我使用了以下代码。

survfit2(Surv(time, status) ~ surg, data = df_colon) %>%   ggsurvfit() +   add_confidence_interval() +   add_risktable()+   scale_color_grey() +   scale_fill_grey() +   labs(title = "Grey Scale",        caption = "FIgure1: Kaplan Meier Graph of Surgery status ")

在这里，你可以看到我得到的这张图在风险表上方有脚注

如何获取风险表和Kaplan Meier图下方的脚注？

Answer 1

在幕后

ggsurvfit

使用

patchwork

将绘图和风险表结合起来。

我发现实现您想要的结果的唯一选择是首先调用

ggsurvfit_build

，然后使用

patchwork::plot_annotation

:

添加标题和说明文字

library(ggsurvfit)
#> Loading required package: ggplot2

p <- survfit2(Surv(time, status) ~ surg, data = df_colon) %>%
  ggsurvfit() +
  add_confidence_interval() +
  add_risktable() +
  scale_color_grey() +
  scale_fill_grey()

p |> 
  ggsurvfit_build() +
  patchwork::plot_annotation(
    title = "Grey Scale",
    caption = "FIgure1: Kaplan Meier Graph of Surgery status "
  )