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

Есть ли у вас какие-либо идеи? Спасибо! Оливье

Answer 1

Вы можете попробовать добавить цветные текстовые элементы с помощью annotation

ggsurv$plot <- ggsurv$plot + annotate("text", x = 0, y = 0.35, 
           label = "Text here", cex=5, vjust=0.5, 
           hjust = 0, fontface=2, col="red")

потом

> ggsurv