将中位生存线添加到 ggsurvplot答案

【问题标题】：Add median survival line to ggsurvplot将中位生存线添加到 ggsurvplot
【发布时间】：2016-06-25 01:23:46
【问题描述】：

我整个上午都在寻找以下内容：我有一个生存对象

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 添加一行以获得中位生存期。但是，到目前为止我找不到解决方案。

谁能帮忙？谢谢。

【问题讨论】：

标签： r ggplot2 median survival-analysis

【解决方案1】：

快速的技巧是将ggtheme=theme_bw() 或ggtheme=theme_minimal() 添加到ggsurvplot() 语句的末尾——这将在四分位数处画线。

【讨论】：

【解决方案2】：

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

【讨论】：