生存分析就是一个任人打扮的小姑凉

Posted on by

最近接到TCGA分析需求，想看看指定基因在指定癌症是否具有临床意义（也就是生存分析是否有统计学显著效果咯！）其实很早以前我在生信技能树就号召粉丝讨论过这个问题：集思广益-生存分析可以随心所欲根据表达量分组吗 这里我做实力演绎一下。

我这里选择最方便的 网页工具：https://xenabrowser.net/heatmap/ 选择合适的数据集及样本信息还有基因来演示一下，随便选择一个基因一个癌症吧，如下：

image-20191023092948187

这个时候，我草率的制作了生存分析图如下：

image-20191023093142960

(@ο@) 哇～非常显著，差点准备交差了，然后下意识的看了看病人数量，TCGA数据库的BRCA病人没道理居然快1200个了，肯定是有什么地方错误了，重新看了看，的确是因为没有顾虑到里面有正常组织测序的那些病人，怎么说呢，相当于把有正常组织测序的那一百多个病人，在我这个生存分析里面计算了两次，他们的生存时间信息，生存状态都重复计算了，所以实际上这个生存分析是错误的。

过滤一下，仅仅是保留tumor的表达量信息和病人临床信息，再次制作生存分析曲线，如下所示：

image-20191023093552825

可以看到，之前明明是显著的结果消失了，而且不管是使用哪种表达量划分方式，都达不到统计学显著阈值。

是不是就没有办法了呢？

当然不是，还可以使用R包，一个非常棒的外国小哥博客写的很清楚：http://r-addict.com/2016/11/21/Optimal-Cutpoint-maxstat.html

还有专门的文章，这里就不细心讲解啦。

image-20191023093957974

使用survminer包的surv_cutpoint函数找寻最近生存分析阈值

外国小哥博客写的很清楚：http://r-addict.com/2016/11/21/Optimal-Cutpoint-maxstat.html 我们现在就测试一下这个流程。

首先下载我们前面的数据文件：'PLEKHA5-BRCA.tsv' 内容如下：

总共6列，在前面的 网页工具：https://xenabrowser.net/heatmap/ 选择对应的信息下载即可：

image-20191023100114795

然后是R代码读入上面的文件，主要是列名需要保证正确无误！！！

rm(list=ls())
options(stringsAsFactors = F)
# install.packages("survminer")
library(survminer)
a=read.table('PLEKHA5-BRCA.tsv',header = T,sep = '\t')
head(a)
dat=a[a$sample_type.samples=='Primary Tumor',4:6]
head(dat)
dat$vital_status.demographic=ifelse(dat$vital_status.demographic=='Alive',1,0)
surv_rnaseq.cut <- surv_cutpoint(
 dat,
 time = "OS.time",
 event = "vital_status.demographic",
 variables = c("ENSG00000052126.13")
)
summary(surv_rnaseq.cut)
plot(surv_rnaseq.cut, "ENSG00000052126.13", palette = "npg")

surv_rnaseq.cat <- surv_categorize(surv_rnaseq.cut)

library(survival)
fit <- survfit(Surv(OS.time, vital_status.demographic) ~ ENSG00000052126.13,
 data = surv_rnaseq.cat)
ggsurvplot(
 fit, # survfit object with calculated statistics.
 risk.table = TRUE, # show risk table.
 pval = TRUE, # show p-value of log-rank test.
 conf.int = TRUE, # show confidence intervals for 
 # point estimaes of survival curves.
 xlim = c(0,3000), # present narrower X axis, but not affect
 # survival estimates.
 break.time.by = 1000, # break X axis in time intervals by 500. 
 risk.table.y.text.col = T, # colour risk table text annotations.
 risk.table.y.text = FALSE # show bars instead of names in text annotations
 # in legend of risk table
)

重要的的列名是：

 time = "OS.time",
 event = "vital_status.demographic",
 variables = c("ENSG00000052126.13")

如果是你自己的数据集，需要稍微修改哦。

见证奇迹的时刻：

image-20191023100314166

是不是统计学显著啦！！！

函数帮我们选择的分组；

image-20191023100342105

更多TCGA教程见；

​

Comments are closed.