Добавить срединную линию выживания для ggsurvplot

Question

Я смотрел все утро на следующее: У меня есть объект выживания

myData.KMfit <- npsurv (Surv (Time, myData$todurs=="dead") ~ myData$Sex); 

, который я показываю с помощью

plot <- ggsurvplot(myData.KMfit,pval=TRUE,risk.table=TRUE,risk.table.col = "strata", main="Sex specific survival",legend="top",legend.title="Sex",legend.labs=c("Women","Men")); 

Сюжет выглядит следующим 1

Я хотел бы добавить строку при y = 0,5 для медианного выживания. Однако до сих пор я не мог найти решение.

Кто может помочь?

Спасибо :) Фелей

Answer 1

Быстрые обходной добавить ggtheme=theme_bw() или ggtheme=theme_minimal() до конца вашего ggsurvplot() заявления - это будет рисовать линии на квартили.

Answer 2

вариант: surv.median.line = "hv" в параметрах ggsurvplot.

ggsurv <- ggsurvplot(
      fit,      
     data = lung,    
     risk.table = TRUE,  
     pval = TRUE,    
    conf.int = TRUE,   
surv.median.line = "hv", # add the median survival pointer. 
    legend.labs = 
     c("Male", "Female") # change legend labels. 
    )