将中位生存线添加到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

选项是ggsurvplot选项中的surv.median.line =“hv”。

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.
    )

Answer 2

快速破解是将ggtheme=theme_bw()或ggtheme=theme_minimal()添加到ggsurvplot()语句的末尾 - 这将在四分位数处绘制线条。