【视频讲解】R语言中的生存分析Survival analysis晚期肺癌患者4例

本教程介绍了生存分析,以及如何在R中进行生存分析

由Kaizong Ye,Qing Li撰写

于生存分析在许多其他领域很常见,因此也有其他名称

  • 可靠性分析
  • 持续时间分析
  • 事件历史分析
  • 事件发生时间分析

视频

R语言生存分析Survival analysis原理与晚期肺癌患者分析案例

探索见解

去bilibili观看

探索更多视频

第1部分:生存分析简介 

本演示文稿将介绍生存分析 ,参考:

Clark, T., Bradburn, M., Love, S., & Altman, D. (2003). Survival analysis part I: Basic concepts and first analyses. 232-238. ISSN 0007-0920.

我们今天将使用的一些软件包包括:

  • lubridate
  • survival
  • survminer

×

生存分析的应用非常广泛,可以用在很多不同的领域,分析不同实验条件下,研究对象“生存时间”的分布情况,从而了解实验条件对生存时间的影响。这里的“生存时间”不是专指人或动物的生命延续时间,而是泛指某个事件发生前的延续等待时间。例如:一个工人从下岗后到实现再就业的时间;一台汽车从开始使用到发生第一次故障的时间;一个病人从确诊患病到死亡的时间等。之所以用“生存”分析这个名称,是因为这种分析技术常用于描述病人在接受某种治疗后,他们存活时间的分布情况。

几个概念
生存分析的目的就是研究在不同因素下,生存时间的分布情况。要了解整个分析过程,首先需要了解几个专有名词的定义,这样才能保证分析数据的准确性。
事件及事件发生
事件是指研究者所关心的事件发生了,事件发生的时间点,也就是生存时间的记录终点。在生存分析中,定义清楚事件是非常重要的,直接关系到数据的记录是否准确。例如,在医学病症研究中,事件可以指病人死亡或疾病复发;在工业制造业中,事件可以指机器发生故障或发生产品质量事故;在社会管理中,事件可以是一个人失业后的再就业。需要注意,事件的定义一定要在数据收集之前完成,而不是没有定义清楚事件就开始收集数据,否则很可能做的是无用功。

生存时间
生存时间是指从某一起点开始到所关心事件发生的时间。因为生存时间是生存分析的分析对象,所以对生存时间的长度确定至关重要。

事件发生的时间点(计时终点)一般是明确的,例如患者死亡,机器故障,失业青年找到工作,而计时的起点有时却令人头疼,例如计算某些疾病的生存时间,那么计时的起点是疾病发生的时间点,但是某些慢性疾病(糖尿病等)的发病时间往往无法准确确定,其生存时间的起点也就无法准确确定。

生存时间的“时间”不一定是年月日时分秒等单位,例如,机器设备的生存时间,有时候以使用时间作为生存时间是不妥当的。比如计算汽车的生存时间,如果将汽车买来后到发生故障的使用时间作为生存时间,而在这段时间内,汽车很可能是长期闲置的,所以此时应该将汽车的行驶里程作为生存时间。

删失/失访
删失是指事件发生未被观测到或无法被观测到以至于生存时间无法被准确记录下来的情况。删失分为右删失、左删失和期间删失三种。只知道生存时间大于某一时间点,这种删失称为右删失;只知道生存时间小于某一时点的删失称为左删失;只知道生存时间在某一段时间之内的删失称为区间删失,右删失的情况最为常见。虽然删失使得生存时间无法准确计算,但在生存分析时还是应该将其考虑在内,因为删失数据会影响到最终的生存率结果。


生存分析原理
生存分析刻画的是生存时间的分布情况,这里的分布指的是概率分布,如何形象刻画生存时间的分布情况呢?可以用一个二维坐标图来描述,横轴是时间长度,纵轴是事件发生概率,这就能很清楚的知道生存时间的概率分布情况了。

因为涉及到概率,那么自然要用概率函数来表示。根据计算概率的不同,生存分析的概率函数有两种:风险函数和生存函数。生存函数和风险函数是用来描述生存时间的分布的两个主要工具。

用一个非负随机变量T来表示生存时间,生存函数定义为随机变量T越过某个时点t时,所有考察对象中,没有发生事情的概率,也就是生存下来的概率。当t=0时,生存函数的取值为1,随着时间的推移(t值增大),生存函数的取值逐渐变小,生存函数是时间t的单调递减函数。可以用下面的式子表示生存函数:



根据生存函数,又可以提出累积风险函数,它的公式为:


表示生存时间T为超过时间点t时,研究对象中,已经发生事件的概率。此外还有一个风险概率密度函数,它是累积风险函数的导数,公式如下:


风险概率密度函数表示某个时间点t上,事件发生的概率。


从上面的结果可知,风险函数和生存函数是可以互相推导的,因此在生存分析中,既可以生存函数,也可以用风险函数,一般生存函数的运用更多。这就好像测量汽车速度,可以测量瞬间速度,也可以通过测量距离和行驶时间计算平均速度,瞬时速度的测量通常是比较困难的,而且容易受到随机误差影响。


library(survival)
library(survminer)
library(lubridate)
 

什么是生存数据?

事件时间数据由不同的开始时间和结束时间组成。

癌症的例子

  • 从手术到死亡的时间
  • 从治疗开始到进展的时间
  • 从响应到复发的时间

其他领域的例子

事件发生时间数据在许多领域都很常见,包括但不限于

  • 从艾滋病毒感染到艾滋病发展的时间
  • 心脏病发作的时间
  • 药物滥用发生的时间
  • 机器故障时间


视频

决策树模型原理和R语言预测心脏病实例

探索见解

去bilibili观看

探索更多视频

生存分析别名

由于生存分析在许多其他领域很常见,因此也有其他名称

  • 可靠性分析
  • 持续时间分析
  • 事件历史分析
  • 事件发生时间分析

肺数据集

数据包含来自北中部癌症治疗组的晚期肺癌患者。今天我们将用来演示方法的一些变量包括

  • 时间:以天为单位的生存时间
  • 状态:审查状态1 =审查,2 =失效
  • 性别:男= 1女= 2

什么是审查?

RICH JT,NEELY JG,PANIELLO RC,VOELKER CCJ,NUSSENBAUM B,WANG EW。理解KAPLAN-MEIER曲线的实用指南。耳鼻咽喉头颈外科:美国耳鼻咽喉头颈外科学会官方杂志。2010; 143(3):331-336。doi:10.1016 / j.otohns.2010.05.007

审查类型

某个主题可能由于以下原因而被审查:

  • 后续损失
  • 退出研究
  • 固定学习期结束前没有活动

具体来说,这些是审查的示例。

审查生存数据

在此示例中,我们将如何计算10年无事件的比例?

受试者2、3、5、6、8、9和10 在10年时都是无事件的。受试者4和7 在10年之前发生了该事件。主题1 在10年之前已被审查,因此我们不知道他们是否在10年之前有此事件-我们如何将该主题纳入我们的估计中?

分配随访时间

  • 受审查的主题仍会提供信息,因此必须适当地包含在分析中
  • 随访时间的分布存在偏差,在接受检查的患者和有事件的患者之间可能有所不同


生存数据的组成部分

对于主题ii:

  1. 活动时间TiTi
  2. 审查时间CiCi
  3. 事件指标δiδi:
    • 1,如果观察到的事件(即  Ti≤CiTi≤Ci)
    • 如果检查,则为0(即  Ti>CiTi>Ci)
  4. 观测时间Yi=min(Ti,Ci)Yi=min(Ti,Ci)

lung数据中提供了观察时间和事件指示

  • 时间:以天为单位的生存时间(YiYi)
  • 状态:审查状态1 =审查,2 =死亡(δiδi)

R语言生存分析数据分析可视化案例

阅读文章


在R中处理日期

数据通常带有开始日期和结束日期,而不是预先计算的生存时间。第一步是确保将这些格式设置为R中的日期。

让我们创建一个小的示例数据集,其中sx_date包含手术日期和last_fup_date上次随访日期的变量。

date_ex <- 
  tibble(
    sx_date = c("2007-06-22", "2004-02-13", "2010-10-27"), 
    last_fup_date = c("2017-04-15", "2018-07-04", "2016-10-31")
    )

date_ex
## # A tibble: 3 x 2
##   sx_date    last_fup_date
##   <chr>      <chr>        
## 1 2007-06-22 2017-04-15   
## 2 2004-02-13 2018-07-04   
## 3 2010-10-27 2016-10-31

我们看到它们都是字符变量,通常都是这种情况,但是我们需要将它们格式化为日期。

格式化日期-基数R

date_ex %>% 
  mutate(
    sx_date = as.Date(sx_date, format = "%Y-%m-%d"), 
    last_fup_date = as.Date(last_fup_date, format = "%Y-%m-%d") 
    )
## # A tibble: 3 x 2
##   sx_date    last_fup_date
##   <date>     <date>       
## 1 2007-06-22 2017-04-15   
## 2 2004-02-13 2018-07-04   
## 3 2010-10-27 2016-10-31
  • 请注意,R格式必须包含分隔符和符号。例如,如果您的日期格式为m / d / Y,则需要format = "%m/%d/%Y"
  •  

格式化日期-lubridate程序包

我们还可以使用该lubridate包来格式化日期。在这种情况下,请使用ymd功能


随时关注您喜欢的主题


date_ex %>% 
  mutate(
    sx_date = ymd(sx_date), 
    last_fup_date = ymd(last_fup_date)
    )
## # A tibble: 3 x 2
##   sx_date    last_fup_date
##   <date>     <date>       
## 1 2007-06-22 2017-04-15   
## 2 2004-02-13 2018-07-04   
## 3 2010-10-27 2016-10-31

  • 请注意,与基本R选项不同,不需要指定分隔符
  •  

计算生存时间 

现在日期已格式化,我们需要以某些单位(通常是几个月或几年)计算开始时间和结束时间之间的差。在base中R,用于difftime计算两个日期之间的天数,然后使用将其转换为数字值as.numeric。然后将除以365.25年的平均天数转换为年。

date_ex %>% 
  mutate(
    os_yrs = 
      as.numeric(
        difftime(last_fup_date, 
                 sx_date, 
                 units = "days")) / 365.25
    )
## # A tibble: 3 x 3
##   sx_date    last_fup_date os_yrs
##   <date>     <date>         <dbl>
## 1 2007-06-22 2017-04-15      9.82
## 2 2004-02-13 2018-07-04     14.4 
## 3 2010-10-27 2016-10-31      6.01

计算生存时间 

 操作员可以%--%指定一个时间间隔,然后使用将该时间间隔转换为经过的秒数as.duration,最后除以dyears(1),将其转换为年数,从而得出一年中的秒数。

## # A tibble: 3 x 3
##   sx_date    last_fup_date os_yrs
##   <date>     <date>         <dbl>
## 1 2007-06-22 2017-04-15      9.82
## 2 2004-02-13 2018-07-04     14.4 
## 3 2010-10-27 2016-10-31      6.02

事件标标

对于生存数据的组成部分,我提到了事件指示器:

事件指标δiδi:

  • 1,如果观察到的事件(即  Ti≤CiTi≤Ci)
  •  如果检查,则为0(即  Ti>CiTi>Ci)

 在lung数据中,我们有:

  • 状态:审查状态1 =审查,2 =失效

生存函数

受试者可以存活超过指定时间的概率S(t)=Pr(T>t)=1−F(t)S(t)=Pr(T>t)=1−F(t)

S(t)S(t):生存函数F(t)=Pr(T≤t)F(t)=Pr(T≤t):累积分布函数

理论上,生存函数是平滑的;在实践中,我们以离散的时间尺度观察事件。

生存概率

  • 生存概率在某个时间,S(t)S(t),是存活超过该时间,考虑到个体已存活刚刚在此之前,时间的条件概率。
  • 可以估计为当时活着但没有损失的随访患者人数除以当时的活着患者人数
  • 生存概率的Kaplan-Meier估计是这些条件概率的乘积
  • 在时间0,生存概率为1,即  S(t0)=1S(t0)=1

创建生存对象

这是一种非参数方法,可产生阶跃函数,每次事件发生时,阶跃下降。

  •  创建一个生存对象。对于每个主题,将有一个条目作为生存时间,+如果主题是经过审查的,则后面跟一个。让我们看一下前10个观察值:
##  [1]  306   455  1010+  210   883  1022+  310   361   218   166

用Kaplan-Meier方法估算生存曲线

  • survfit函数根据公式创建生存曲线。让我们为整个同类群组生成总体生存曲线,将其分配给object f1,然后查看names该对象的:
names(f1)

Kaplan-Meier方法是估计生存时间和概率的最常用方法。


R语言泊松Poisson回归模型分析案例

阅读文章


在R中处理日期

数据通常带有开始日期和结束日期,而不是预先计算的生存时间。第一步是确保将这些格式设置为R中的日期。

让我们创建一个小的示例数据集,其中sx_date包含手术日期和last_fup_date上次随访日期的变量。

date_ex <- 
  tibble(
    sx_date = c("2007-06-22", "2004-02-13", "2010-10-27"), 
    last_fup_date = c("2017-04-15", "2018-07-04", "2016-10-31")
    )

date_ex
## # A tibble: 3 x 2
##   sx_date    last_fup_date
##   <chr>      <chr>        
## 1 2007-06-22 2017-04-15   
## 2 2004-02-13 2018-07-04   
## 3 2010-10-27 2016-10-31

我们看到它们都是字符变量,通常都是这种情况,但是我们需要将它们格式化为日期。

格式化日期-基数R

date_ex %>% 
  mutate(
    sx_date = as.Date(sx_date, format = "%Y-%m-%d"), 
    last_fup_date = as.Date(last_fup_date, format = "%Y-%m-%d") 
    )
## # A tibble: 3 x 2
##   sx_date    last_fup_date
##   <date>     <date>       
## 1 2007-06-22 2017-04-15   
## 2 2004-02-13 2018-07-04   
## 3 2010-10-27 2016-10-31
  • 请注意,R格式必须包含分隔符和符号。例如,如果您的日期格式为m / d / Y,则需要format = "%m/%d/%Y"
  •  

格式化日期-lubridate程序包

我们还可以使用该lubridate包来格式化日期。在这种情况下,请使用ymd功能


随时关注您喜欢的主题


date_ex %>% 
  mutate(
    sx_date = ymd(sx_date), 
    last_fup_date = ymd(last_fup_date)
    )
## # A tibble: 3 x 2
##   sx_date    last_fup_date
##   <date>     <date>       
## 1 2007-06-22 2017-04-15   
## 2 2004-02-13 2018-07-04   
## 3 2010-10-27 2016-10-31

  • 请注意,与基本R选项不同,不需要指定分隔符
  •  

计算生存时间 

现在日期已格式化,我们需要以某些单位(通常是几个月或几年)计算开始时间和结束时间之间的差。在base中R,用于difftime计算两个日期之间的天数,然后使用将其转换为数字值as.numeric。然后将除以365.25年的平均天数转换为年。

date_ex %>% 
  mutate(
    os_yrs = 
      as.numeric(
        difftime(last_fup_date, 
                 sx_date, 
                 units = "days")) / 365.25
    )
## # A tibble: 3 x 3
##   sx_date    last_fup_date os_yrs
##   <date>     <date>         <dbl>
## 1 2007-06-22 2017-04-15      9.82
## 2 2004-02-13 2018-07-04     14.4 
## 3 2010-10-27 2016-10-31      6.01

计算生存时间 

 操作员可以%--%指定一个时间间隔,然后使用将该时间间隔转换为经过的秒数as.duration,最后除以dyears(1),将其转换为年数,从而得出一年中的秒数。

## # A tibble: 3 x 3
##   sx_date    last_fup_date os_yrs
##   <date>     <date>         <dbl>
## 1 2007-06-22 2017-04-15      9.82
## 2 2004-02-13 2018-07-04     14.4 
## 3 2010-10-27 2016-10-31      6.02

事件标标

对于生存数据的组成部分,我提到了事件指示器:

事件指标δiδi:

  • 1,如果观察到的事件(即  Ti≤CiTi≤Ci)
  •  如果检查,则为0(即  Ti>CiTi>Ci)

 在lung数据中,我们有:

  • 状态:审查状态1 =审查,2 =失效

生存函数

受试者可以存活超过指定时间的概率S(t)=Pr(T>t)=1−F(t)S(t)=Pr(T>t)=1−F(t)

S(t)S(t):生存函数F(t)=Pr(T≤t)F(t)=Pr(T≤t):累积分布函数

理论上,生存函数是平滑的;在实践中,我们以离散的时间尺度观察事件。

生存概率

  • 生存概率在某个时间,S(t)S(t),是存活超过该时间,考虑到个体已存活刚刚在此之前,时间的条件概率。
  • 可以估计为当时活着但没有损失的随访患者人数除以当时的活着患者人数
  • 生存概率的Kaplan-Meier估计是这些条件概率的乘积
  • 在时间0,生存概率为1,即  S(t0)=1S(t0)=1

创建生存对象

这是一种非参数方法,可产生阶跃函数,每次事件发生时,阶跃下降。

  •  创建一个生存对象。对于每个主题,将有一个条目作为生存时间,+如果主题是经过审查的,则后面跟一个。让我们看一下前10个观察值:
##  [1]  306   455  1010+  210   883  1022+  310   361   218   166

用Kaplan-Meier方法估算生存曲线

  • survfit函数根据公式创建生存曲线。让我们为整个同类群组生成总体生存曲线,将其分配给object f1,然后查看names该对象的:
names(f1)

Kaplan-Meier方法是估计生存时间和概率的最常用方法。

##  [1] "n"          "time"       "n.risk"     "n.event"    "n.censor"  
##  [6] "surv"       "std.err"    "cumhaz"     "std.chaz"   "start.time"
## [11] "type"       "logse"      "conf.int"   "conf.type"  "lower"     
## [16] "upper"      "call"

survfit对象将用于创建生存曲线的一些关键组件包括:

  • time,其中包含每个时间间隔的起点和终点
  • surv,其中包含每个对应的生存概率 time

Kaplan-Meier图 

现在, 绘制对象 获得Kaplan-Meier图。

plot(survfit(Surv(time, status) ~ 1, data = lung), 
     xlab = "Days", 
     ylab = "Overall survival probability")

 ​

  • 基数R中的默认图显示了具有相关置信区间(虚线)的阶跃函数(实线)
  • 水平线代表间隔的生存时间
  • 时间间隔由事件终止
  • 垂直线的高度显示累积概率的变化
  • 带有刻度线的经过审查的观察结果会减少间隔之间的累积生存期。 

Kaplan-Meier图 

 建立在上ggplot2,并可用于创建Kaplan-Meier图。

  • 默认图  带相关置信带(阴影区域)的阶跃函数(实线)。
  • 默认情况下,显示了被检查患者的刻度线,在此示例中,该刻度线本身有些模糊,可以使用选项将其取消 censor = FALSE

估计xx年生存

生存分析中经常需要关注的一个数量是生存超过一定数量(xx)年的概率。

例如,要估算生存到11年的可能性 

## Call: survfit(formula = Surv(time, status) ~ 1, data = lung)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     65     121    0.409  0.0358        0.345        0.486

我们发现本研究中11年生存的机率是41%。

同时显示95%置信区间的相关上下限。

xx年生存率和生存曲线

 11年存活率概率为在y轴上的点对应于11一年x轴的生存曲线。


Xx年生存率常常被错误估计

如果 使用“天真”的估计会怎样?

228名患者中的121名到1年时死亡,因此:

​-当 忽略42名患者在1年之前受到检查的事实时, 会错误估计1个1个年生存率。 

  •  正确的估计生存概率-年为41%。

忽略审查对xx年生存的影响

  • 想象两个研究,每个研究228个主题。每个研究中有165人死亡。一个没有检查(橙色线),63个病人被另一个(蓝色线)检查
  • 忽略审查会导致总体生存概率被高估,因为被审查的受试者仅在部分随访时间内提供信息,然后落入风险范围之外,从而降低了生存的累积概率

估计中位生存时间

生存分析中经常需要关注的另一个数量是平均生存时间,我们使用中位数对其进行量化。预计生存时间不会呈正态分布,因此平均值不是适当的总结。

## Call: survfit(formula = Surv(time, status) ~ 1, data = lung)
## 
##       n  events  median 0.95LCL 0.95UCL 
##     228     165     310     285     363

我们看到中位生存时间为310天。还会显示95%置信区间的上限和下限。

中位生存时间和生存曲线

中位生存时间是生存概率为0.50 

中位生存率常常被错误估计

 总结165例死亡患者的中位生存时间

##   median_surv
## 1         226
  • 当 忽略被检查患者也有助于随访的事实时, 会得出错误的估计中值生存时间226天。
  •  正确的中位生存时间估计是310天。

忽略审查对中位数生存率的影响

  • 忽略审查会造成人为降低的生存曲线,因为排除了受审查患者贡献的随访时间(紫色线)
  • 数据的真实生存曲线以lung蓝色显示,以进行比较

比较各组之间的生存时间

  • 我们可以使用对数秩检验进行组间重要性检验
  • 对数秩检验在整个随访时间内平均权衡观察结果,是比较组间生存时间的最常用方法
  • 根据研究问题,有些版本可能会更重视早期或后期的随访,可能更合适 

我们使用 函数获得对数秩p值。例如,我们可以根据lung数据中的性别测试是否存在生存时间差异

## Call:
## 
##         N Observed Expected (O-E)^2/E (O-E)^2/V
## sex=1 138      112     91.6      4.55      10.3
## sex=2  90       53     73.4      5.68      10.3
## 
##  Chisq= 10.3  on 1 degrees of freedom, p= 0.001

从survdiff对象中提取信息

从 结果中提取p值 

1 - pchisq(sd$chisq, length(sd$n) - 1)
## [1] 0.001311165

 返回格式化的p值

## [1] 0.001

Cox回归模型

我们可能想量化单个变量的效应大小,或者将多个变量包括在回归模型中以说明多个变量的效应。

Cox回归模型是半参数模型,可用于拟合具有生存结果的单变量和多变量回归模型。

h(t)h(t):危险或事件发生的瞬时速率h0(t)h0(t):基本基准危险

该模型的一些关键假设:

  • 非信息审查
  • 比例危险

注意:也可以使用用于生存结果的参数回归模型,但是本培训将不涉及这些模型。

我们可以使用coxph函数拟合生存数据的回归模型,该函数Surv在左侧使用一个对象,而在右侧具有用于回归公式的标准语法R

## Call:
## 
##        coef exp(coef) se(coef)      z       p
## sex -0.5310    0.5880   0.1672 -3.176 0.00149
## 
## Likelihood ratio test=10.63  on 1 df, p=0.001111
## n= 228, number of events= 165

格式化Cox回归结果

 我们可以看到输出的整洁版本broom

或使用

危险比

  • 来自Cox回归模型的关注数量是危险比(HR)。HR表示在任何特定时间点两组之间的危险比率。
  • HR被解释为感兴趣事件中那些仍处于事件风险中的事件的瞬时发生率。 
  • 如果您有一个回归参数ββ(来自estimate我们的列coxph),则HR = 经验值(β)经验值⁡(β)。
  • HR <1表示死亡危险降低,而HR> 1表示死亡危险增加。
  • 因此,我们的HR = 0.59意味着在任何给定时间,女性死亡的人数大约是男性的0.6倍。

 ​

第2部分:地标分析和时间相关协变量

在第1部分中,我们介绍了使用对数秩检验和Cox回归来检验感兴趣的协变量与生存结果之间的关联。

示例:肿瘤反应

示例:从治疗开始就测量总生存期,关注的是对治疗的完全反应与生存之间的关联。

  • Anderson等人(JCO,1983)描述了在这种情况下,为什么传统方法(如对数秩检验或Cox回归)偏向于响应者,并提出了划时代的方法。
  • 界标方法中的零假设是,从界标生存的过程不依赖于界标的响应状态。

Anderson, J., Cain, K., & Gelber, R. (1983). Analysis of survival by tumor response. Journal of Clinical Oncology : Official Journal of the American Society of Clinical Oncology, 1(11), 710-9.

其他例子

癌症研究中可能尚未关注的其他一些可能的协变量包括:

  • 移植失败
  • 移植物抗宿主病
  • 第二次切除
  • 辅助治疗
  • 合规
  • 不良事件

示例数据 

137例骨髓移植患者的数据。 变量包括:

  • T1 死亡时间或最后一次随访时间(天)
  • delta1死亡指标;1死0活
  • TA 急性移植物抗宿主病的时间(以天为单位)
  • deltaA急性移植物抗宿主病指标;1-发展为急性移植物抗宿主病,0-从未发展为急性移植物抗宿主病

让我们加载数据以供整个示例使用

地标法

  1. 选择基线之后的固定时间作为界标时间。注意:应在检查数据之前根据临床信息进行操作
  2. 那些人群的子集至少跟踪到里程碑时间。注意:请务必在地标时间之前报告由于关注或审查事件而排除的号码。
  3. 计算具有里程碑意义的时间,并应用传统的对数秩检验或Cox回归

BMT数据感兴趣的是急性移植物抗宿主病(aGVHD)和存活之间的关联。但是aGVHD是在移植后进行评估的,这是我们的基线,也就是后续随访的开始时间。

步骤1选择地标时间

通常,aGVHD发生在移植后的前90天内,因此我们使用90天的界标。

人们对急性移植物抗宿主病(aGVHD)与生存之间的关系感兴趣。但是aGVHD是在移植后进行评估的,这是我们的基线,也就是后续随访的开始时间。

第2步:至少跟踪到里程碑时间之前的人群的子集

这将我们的样本量从137减少到122。

  • 所有15位被排除的患者均在90天里程碑之前死亡

人们对急性移植物抗宿主病(aGVHD)与生存之间的关系感兴趣。但是aGVHD是在移植后进行评估的,这是我们的基线,也就是后续随访的开始时间。

步骤3根据地标计算随访时间,并应用传统方法。

使用BMT数据的Cox回归界标示例

在Cox回归中, 可以使用中的subset选项coxph来排除那些在标志性时间内没有被随访的患者

时间相关协变量

界标分析的替代方法是合并时间相关的协变量。这可能更适合

  • 协变量的值随时间变化
  • 没有明显的里程碑时间

时间相关协变量数据设置

对时间相关协变量的分析R需要建立特殊的数据集。 

BMT数据中没有ID变量,这是创建特殊数据集所必需的,因此请创建一个名为的变量my_id

tmerge函数与event和函数一起使用tdc可创建特殊数据集。

  • tmerge 为每个患者的不同协变量值创建一个具有多个时间间隔的长数据集
  • event 创建新的事件指示器,以与新创建的时间间隔一致
  • tdc 创建与时间相关的协变量指标,以与新创建的时间间隔一致

时间相关协变量-单例患者

要了解其作用,让我们看一下前5名患者的数据。

 ##   my_id   T1 delta1   TA deltaA
## 1     1 2081      0   67      1
## 2     2 1602      0 1602      0
## 3     3 1496      0 1496      0
## 4     4 1462      0   70      1
## 5     5 1433      0 1433      0

这些相同患者的新数据集 

##   my_id   T1 delta1 id tstart tstop death agvhd
## 1     1 2081      0  1      0    67     0     0
## 2     1 2081      0  1     67  2081     0     1
## 3     2 1602      0  2      0  1602     0     0
## 4     3 1496      0  3      0  1496     0     0
## 5     4 1462      0  4      0    70     0     0
## 6     4 1462      0  4     70  1462     0     1
## 7     5 1433      0  5      0  1433     0     0

时间相关协变量-Cox回归

现在,我们可以分析这个时间依赖性协照常使用Cox回归与coxph 

摘要

我们发现,使用标志性分析或时间依赖性协变量,急性移植物抗宿主病与死亡无显着相关性。

通常,人们会希望使用地标分析对单个协变量进行可视化, 使用带有时间相关协变量的Cox回归进行单变量和多变量建模。

第3部分:竞争风险

 

什么是竞争风险?

当对象在事件发生时间设置中发生多个可能的事件时

例子:

  • 复发
  • 因疾病死亡
  • 因其他原因死亡
  • 治疗反应

在任何给定的研究中,所有这些(或其中一些 以及其他)可能都是可能的事件。

所以有什么问题?

事件时间之间未观察到的依赖性是导致需要特殊考虑的基本问题。

例如,可以想象复发的患者更有可能死亡,因此复发时间和死亡时间将不是独立事件。

竞争风险的背景

存在多种潜在结果时的两种分析方法:

  1. 给定事件的特定于原因的危险:这表示未因其他事件而失败的事件中事件的每单位时间的发生率
  2. 给定事件的累积发生率:这表示事件每单位时间的发生率以及竞争事件的影响

这些方法中的每一种都可能仅阐明数据的一个重要方面,而有可能使其他方面难以理解,因此所选的方法应取决于感兴趣的问题。

 黑色素瘤数据示例

 它包含变量:

  • time 生存时间以天为单位,可能经过审查。
  • status 1例死于黑色素瘤,2例存活,3例因其他原因死亡。
  • sex 1 =男性,0 =女性。
  • age 年岁。
  • year 操作。
  • thickness 肿瘤厚度(毫米)。
  • ulcer 1 =存在,0 =不存在。

黑色素瘤数据的累积发生率

 在竞争风险的背景下估算累积发生率。

## Estimates and Variances:
## $est
##           1000       2000       3000      4000      5000
## 1 1 0.12745714 0.23013963 0.30962017 0.3387175 0.3387175
## 1 3 0.03426709 0.05045644 0.05811143 0.1059471 0.1059471
## 
## $var
##             1000         2000         3000        4000        5000
## 1 1 0.0005481186 0.0009001172 0.0013789328 0.001690760 0.001690760
## 1 3 0.0001628354 0.0002451319 0.0002998642 0.001040155 0.001040155

绘制累积发生率-基数R

生成 默认值的基本图。


plot(ci_fit)


绘制累积发生率 

  •  ​

比较组之间的累积发生率

 用于组间测试。

例如,Melanoma根据ulcer溃疡的存在与否比较结果。测试结果可以在中找到Tests


ci_ulcer[["Tests"]]
##        stat           pv df
## 1 26.120719 3.207240e-07  1
## 3  0.158662 6.903913e-01  1

按组绘制累积发生率 

按组绘制累积发生率-手动

请注意,我个人发现该ggcompetingrisks功能缺少自定义功能,尤其是与相比ggsurvplot。我通常会自己做图,首先创建cuminc拟合结果的整洁数据集,然后再绘制结果。有关底层代码的详细信息,请参见此演示文稿的

绘制单个事件类型 

通常,只有一种类型的事件会引起人们的兴趣,尽管我们仍要考虑竞争事件。在那种情况下,感兴趣的事件可以单独绘制。同样,我首先通过创建cuminc拟合结果的整洁数据集,然后绘制结果来手动执行此操作。有关底层代码的详细信息,请参见此演示文稿的源代码。


在风险表中添加数字

您可能想将风险表的数量添加到累积发生率图中,而据我所知,没有简单的方法可以做到这一点。请参阅此演示文稿的源代码中的一个示例

竞争风险回归

两种方法:

  1. 特定原因风险
    • 当前没有事件的受试者中给定事件类型的瞬时发生率
    • 使用Cox回归估算 
  2. Subdistribution子分布风险
    • 给定类型事件在没有经历过此类事件的受试者中的瞬时发生率
    • 使用Fine-Gray回归估算 

黑色素瘤数据中的竞争风险回归-子分布风险法Subdistribution

假设我们有兴趣研究年龄和性别对黑色素瘤死亡的影响,而其他原因的死亡则是竞争事件。

  • crr 需要指定协变量作为矩阵
  • 如果 关注多个事件,则可以使用failcode选项请求其他事件的结果,默认情况下会返回failcode = 1


shr_fit
## convergence:  TRUE 
## coefficients:
##     sex     age 
## 0.58840 0.01259 
## standard errors:
## [1] 0.271800 0.009301
## two-sided p-values:
##  sex  age 
## 0.03 0.18

在上一个示例中,sex和和age均被编码为数字变量。 如果存在字符变量,则必须使用model.matrix

格式化来自crr的结果

或当前crr不支持的输出。 

黑色素瘤数据中的竞争风险回归-因果分析

审查所有没有引起关注的对象,在这种情况下是由于黑色素瘤死亡,并且照常使用coxph。因此,现在对因其他原因死亡的患者进行针对特定原因的风险评估方法以应对竞争风险。

第4部分:高级主题

 涵盖的内容

  • 生存分析的基础知识,包括Kaplan-Meier生存函数和Cox回归
  • 地标分析和时间相关协变量
  • 竞争风险分析的累积发生率和回归

还有什么?

可能会出现很多零碎的东西 :

  1. 评估比例风险假设
  2. 生存率绘制平滑的生存图XX
  3. 有条件的生存

评估比例风险

Cox比例风险回归模型的一个假设是,在整个随访过程中,风险在每个时间点都是成比例的。我们如何检查数据是否符合此假设?

使用cox.zph生存包中的功能。结果有两点:

  1. 每个协变量的效果是否随时间变化的假设检验,以及一次所有协变量的全局检验。
    • 这是通过证明协变量和log(time)之间的交互作用来完成的
    • 显着的p值表示违反了比例风险假设
  2. Schoenfeld残差图
    • 偏离零坡度线的证据表明违反了比例风险假设

print(cz)
##            rho chisq     p
## sex     0.1236 2.452 0.117
## age    -0.0275 0.129 0.719
## GLOBAL      NA 2.651 0.266
plot(cz)


平滑的生存图-生存分位数

有时可能想根据连续变量来可视化生存估计。 求 生存数据的分位数。默认分位数是p = 0.5中位生存期。

  • x代表事件
  • o代表审查
  • 该线是根据年龄的平均存活率的平滑估计

 ​

条件生存

有时,在已经存活了一段时间的患者中产生存活率估计值很有意义。

Zabor, E., Gonen, M., Chapman, P., & Panageas, K. (2013). Dynamic prognostication using conditional survival estimates. Cancer, 119(20), 3589-3592.

条件生存估计

 让我们将生存期定为6个月


map_df(
  prob_times, 
  ~conditional_surv_est(
    basekm = fit1, 
    t1 = 182.625, 
    t2 = .x) 
  ) %>% 
  mutate(months = round(prob_times / 30.4)) %>% 
  select(months, everything()) %>% 
  kable()

条件生存图

我们还可以根据不同的生存时间长度可视化条件生存数据。 

 ​

所得出的曲线在我们每次进行条件调整时都有一条生存曲线。在这种情况下,第一条线是总体生存曲线,因为它是根据时间0进行调节的。


可下载资源

关于作者

Kaizong Ye拓端研究室(TRL)的研究员。

本文借鉴了作者最近为《R语言数据分析挖掘必知必会 》课堂做的准备。

​非常感谢您阅读本文,如需帮助请联系我们!

 
QQ在线咨询
售前咨询热线
15121130882
售后咨询热线
0571-63341498

关注有关新文章的微信公众号


永远不要错过任何见解。当新文章发表时,我们会通过微信公众号向您推送。

技术干货

最新洞察

This will close in 0 seconds