r - R : ggsurvplot の色付きの凡例ラベル (テキスト)

Question

ggsurvplot を使用してサバイバル プロットを作成していますが、達成できない唯一のことは、凡例に色付きのラベルを取得することです。凡例の線は階層に従って色付けされますが、関連するラベルではありません。これどうやってするの ？

私が今持っているもの：

ggsurv <- ggsurvplot(
   fit = fit,
   palette = colors,
   break.time.by = .5, xlab = "Years",
   surv.scale = "percent",
   ylab = "Transplant-free Survival",
   censor.shape="|", censor.size = 2,
   legend = c(.2,.3),
   legend.labs = c("0 criterion", "1 criterion", "2 criteria", "3 criteria"),
   legend.title = "",
   font.legend = c(12, "plain"),
   risk.table = T,
   risk.table.title = "Number at risk by time",
   risk.table.fontsize = 3,
   risk.table.height = 0.3, surv.plot.height = 0.7,
   title = "Transplant-free survival according to the number of\nnon-invasive low-risk criteria",
   font.main = c(12, "bold"),
   pval = T, pval.size = 4, pval.coord = c(2, .1),
   )
ggsurv$table <- ggsurv$table + theme(plot.title = element_text(size = 12, hjust = -0.3))
ggsurv$plot <- ggsurv$plot + theme(plot.title = element_text(hjust = .5))
ggsurv

何か考えはありますか？ありがとう ！オリヴィエ