干货分享|利用TIDE也能预测肿瘤免疫逃逸

说到免疫检查点阻断疗法大家应该都不陌生,其中,最富盛名的免疫检查点就是PD-1/PD-L1了。表达在T细胞表面的程序性死亡受体(PD-1),与表达在肿瘤细胞表面的程序性死亡配体(PD-L1)结合,导致T细胞衰竭而无法正常杀伤肿瘤细胞,肿瘤细胞便可逃脱宿主的免疫监视。因此,PD-1/PD-L1被称为“免疫检查点”。基于PD-1/PD-L1的免疫检查点阻断疗法就是通过抑制二者的结合,从而提高宿主免疫系统对肿瘤细胞的攻击性。那么,能不能通过生信分析来评估患者对免疫检查点抑制剂治疗的反应,预测患者肿瘤免疫逃逸的可能性呢?还真有!

TIDE(Tumor Immune Dysfunction and Exclusion)数据库就可以基于肿瘤样本的基因表达谱来评估肿瘤免疫逃逸的可能性。下面,小碗不仅将给大家详细讲解TIDE数据库的使用,而且还会一步到位给大家演示如何在R语言中对分析结果进行整理和绘制小提琴图,让我们一起看下去吧!

1.整理数据:

前面说过,TIDE数据库是基于基因表达谱的算法,所以可想而知,其输入数据应该就是基因表达矩阵了。除此之外,TIDE官网还注明基因表达矩阵要针对对照样本(正常组织或来自不同肿瘤样本的混合样本)进行标准化,但如果数据没有对照该怎么办呢?别急,TIDE也提到了可以用所有样本的平均值作为归一化对照,也就是先计算出每个基因在所有样本中表达值的平均值,再拿每一样本中该基因的表达值减去前述平均值。相关代码小碗已经给大家写好了,直接拿去用即可:

#加载示例数据

load("TIDE数据库示例数据.rdata")

str(data)

View(data)

图1 示例数据是55449个基因在50个样本的表达矩阵
图2 行为基因(gene symbol或Entrez ID)、列为样本

#标准化

normalize <- t(apply(data, 1, function(x)x-(mean(x))))

#保存

write.table(data.frame("gene symbol"=rownames(data),data),file="TIDE_input.txt",sep = "\t",quote = F,row.names = F)

2.进入TIDE数据库(http://tide.dfci.harvard.edu/)

有账号的话就输入邮箱和密码并点击“Log in”登录,没有的话就点击“To Register”注册后登录。

图3

然后,就会直接进入免疫检查点抑制剂疗效预测模块:

图4

下拉,按照指示导入文件、进行选择,点击“Predict response”进行分析:

图5

分析结果如下,有一张每个样本及其TIDE评分的柱状图,点击右上角的三条横线,可以导出。还有一个表格,鼠标悬停在每一列的列名处可以看到相应的解释(TIDE评分越高,肿瘤免疫逃逸的可能性越高,免疫检查点抑制剂疗效越差),拉到页面最后点击“Export to CSV”可以下载表格:

图6

3.在R中对分析结果进行整理并绘制小提琴图比较组间TIDE评分差异:

首先,整理结果:

# 读取分析结果

output <- read.csv("TIDE_output.csv")

View(output)

图7 第一列为样本名,第四列为TIDE评分

# 提取所需数据

tide <- output[,c(1,4)]

# 设置分组

# 这里将前25个样本设置为A组,后面25个样本设置为B组

tide$Group <- c(rep("A",25),rep("B",25))

图8 小提琴图输入数据

然后,进行可视化:

# 绘制小提琴图

library(ggpubr)

pdf(file = "TIDE_小提琴图.pdf",width =10,height = 8)

ggviolin(tide,

x = "Group",

y = "TIDE",

fill = "Group",

add = "boxplot",

add.params = list(fill="white"),

xlab = "")+

scale_fill_manual(values = c("red", "blue"))+

geom_signif(comparisons = list(c("A","B")),# 设置需要比较的组

map_signif_level = T, #是否使用*显示

test = "wilcox.test", ##计算方法

y_position = c(0.3),

tip_length = c(c(0.05,0.05)),

size=0.8,color="black")+

theme(legend.position = "top",

axis.title.x =element_text(size=14),

axis.title.y=element_text(size=14),

axis.text.x=element_text(size=14),

axis.text.y=element_text(size=14),

plot.margin=unit(c(2,8,2,8),'cm'))

dev.off()

图9

除了根据基因表达谱预测肿瘤免疫逃逸、对免疫检查点抑制剂的反应,TIDE数据库还可以直接查询单个基因,感兴趣的小伙伴可以自己摸索一下,今天的分享到这里就结束了,提前感谢大家的赞赞和转发~

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 199,393评论 5 467
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 83,790评论 2 376
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 146,391评论 0 330
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 53,703评论 1 270
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 62,613评论 5 359
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 48,003评论 1 275
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 37,507评论 3 390
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 36,158评论 0 254
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 40,300评论 1 294
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,256评论 2 317
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,274评论 1 328
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 32,984评论 3 316
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 38,569评论 3 303
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,662评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 30,899评论 1 255
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 42,268评论 2 345
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 41,840评论 2 339

推荐阅读更多精彩内容