r - ggsurvplot 的动态图例标签

Question

我有一个与 ggsurvplot 的动态标签和标题有关的一般性问题。在使用包 purrr 的嵌套列表中使用 ggsurvplot 函数时，是否可以为 ggsurvplot 函数提供动态图例标签和图例标题map？

• 我使用的数据集是 NCCTG Lung Cancer Data lung{survival}，稍作调整包括 ECOG 分数低于 3

• 下面的代码为每个预后因素（性别和 ECOG 评分，在 varnames 中定义）动态创建生存图。但是，我不知道如何在函数中添加 dynamic和参数，title因为它们需要作为字符向量提供，该字符向量应该随每个 varname（sex 和 ph.ecog）而变化。legend.labslegend.titleggsurvplot

任何帮助将不胜感激。

谢谢！

HTJ

varnames <- c("sex", "ph.ecog")

lung <- lung %>% filter(ph.ecog<3)

res.tabs <- lung  %>%
  gather(key=VAR, value, varnames) %>%
  nest( data = -VAR) %>% mutate(
    fit = map(data, ~ coxph(Surv(time, status) ~  value, data = .x)),
    survfit = map(data, ~ survfit(Surv(time, status) ~ value , data = .x, conf.type ="log")),
    plots = ggsurvplot(survfit, data, conf.int = TRUE, title = "???", legend.labs = "???", legend.title = "???"))