恰好这个月的学徒介绍了一个肺癌的单细胞转录组和空间转录组联合分析的文章，详见：换一个分析策略会导致文章的全部论点都得推倒重来吗，它里面的一个比较重要的结论上皮细胞细分了8个亚群后，可以根据肿瘤单细胞转录组拷贝数分析结果区分出来里面的4个恶性亚群和4个正常亚群，如下所示：
4个恶性亚群和4个正常亚群
这个肿瘤单细胞转录组拷贝数分析里面最经典的方法就是inferCNV啦，差不多五六年前我研究过它的玩法，就分享后再也没有修改过。但是最近听说参考我教程的小伙伴反馈说这个inferCNV做了一个非常大的更新，导致我前面的教程里面的对inferCNV的结果的解析代码是失效的。正好这次系统性更新一下它！
现在我们就带领大家跑一遍这个分析过程，前面的第一层次降维聚类分群，然后提取上皮细胞后的细分亚群代码就略过了！
首先从前面的第一层次降维聚类分群取不是上皮细胞的任意亚群
第一层次降维聚类分群我们会有全部的细胞的Seurat对象，以及里面的细胞的人工命名信息，然后就可以从取不是上皮细胞的任意亚群，全部的代码如下所示：
代码语言：javascript复制 sce.all.int = readRDS('../../2-harmony/sce.all_int.rds')
colnames(sce.all.int@meta.data)
table(sce.all.int$RNA_snn_res.0.8)
load('../../phe.Rdata')
sce.all.int@meta.data =phe
table(sce.all.int$celltype)
set.seed(123456789)
sce=sce.all.int[,phe$celltype=='endo']
endo.cells <- row.names(sce@meta.data)
endo.cells=sample(endo.cells,800)
endoMat=as.data.frame(GetAssayData(subset(sce, cells=endo.cells),
slot='counts',assay='RNA'))
table(phe$celltype)
sce=sce.all.int[,phe$celltype=='mast']
mast.cells <- row.names(sce@meta.data)
mast.cells=sample(mast.cells,800)
mastMat=as.data.frame(GetAssayData(subset(sce, cells=mast.cells),
slot='counts',assay='RNA'))
spike_mat1 = endoMat
spike_mat2 = mastMat
save(spike_mat1,spike_mat2,file = 'reference_mat.Rdata')
接下来就可以针对上皮细胞亚群细分结果进行矩阵组合
上皮细胞亚群细分结果里面是一万多个细胞，它们虽然也有生物学名字，但是在还没有运行inferCNV之前是不知道恶性与否的状态的：
代码语言：javascript复制load(file = 'reference_mat.Rdata')
load(file = 'phe.Rdata')
dim(phe)
sce.all.int = readRDS('2-harmony/sce.all_int.rds')
sce.all.int
sce.all.int=sce.all.int[,colnames(sce.all.int) %in% rownames(phe)]
sce.all.int
identical(colnames(sce.all.int), rownames(phe))
epiMat=as.data.frame(GetAssayData(sce.all.int,
slot='counts',assay='RNA'))
ids = intersect(rownames(epiMat),rownames(spike_mat1))
this_dat=cbind(epiMat[ids,],spike_mat1[ids,],spike_mat2[ids,])
groupinfo=data.frame(v1=colnames(this_dat),
v2=c( phe$celltype ,
rep('spike-1',300),
rep('ref-1',500),
rep('spike-2',300),
rep('ref-2',500)))
head(groupinfo)
groupFiles='groupFiles.txt'
write.table(groupinfo,file = groupFiles,
sep = 't',quote = F,col.names = F,row.names = F)
print(dim(this_dat))
最后运行inferCNV即可
我这里写了一个简单的函数，myInferCNV(this_dat)，它会自动根据里面的this_dat矩阵信息去 拿到它们的坐标后进行排序：
代码语言：javascript复制myInferCNV <- function(dat){
print(dim(dat))
library(AnnoProbe)
geneInfor=annoGene(rownames(dat),"SYMBOL",'human')
colnames(geneInfor)
geneInfor=geneInfor[with(geneInfor, order(chr, start)),c(1,4:6)]
geneInfor=geneInfor[!duplicated(geneInfor[,1]),]
length(unique(geneInfor[,1]))
head(geneInfor)
## 这里可以去除性染色体
# 也可以把染色体排序方式改变
dat=dat[rownames(dat) %in% geneInfor[,1],]
dat=dat[match( geneInfor[,1], rownames(dat) ),]
dim(dat)
expFile='expFile.txt'
#write.table(dat,file = expFile,sep = 't',quote = F)
library(data.table)
fwrite(dat, file = expFile, row.names = T,sep = "t", quote = FALSE)
head(geneInfor)
geneFile='geneFile.txt'
write.table(geneInfor,file = geneFile,sep = 't',quote = F,col.names = F,row.names = F)
expFile='expFile.txt'
groupFiles='groupFiles.txt'
geneFile='geneFile.txt'
# duplicate 'row.names' are not allowed
library(infercnv)
infercnv_obj = CreateInfercnvObject(raw_counts_matrix=expFile,
annotations_file=groupFiles,
delim="t",
gene_order_file= geneFile,
ref_group_names=c('ref-1',
'ref-2')) ## 这个取决于自己的分组信息里面的
# cutoff=1 works well for Smart-seq2, and cutoff=0.1 works well for 10x Genomics
infercnv_obj2 = infercnv::run(infercnv_obj,
cutoff=0.1, # cutoff=1 works well for Smart-seq2, and cutoff=0.1 works well for 10x Genomics
out_dir= "infercnv_output", # dir is auto-created for storing outputs
cluster_by_groups=T , # cluster
hclust_method="ward.D2", plot_steps=F)
}
myInferCNV(this_dat)
真正运行infercnv的 是 library(infercnv) 里面的 infercnv::run 函数哦！
解读infercnv的结果
运行完毕后很简单的看看infercnv的结果是拷贝数变异热图，非常容易理解，大概是里面的0,1,6,7是可能的恶性肿瘤细胞亚群，而cycle亚群肯定是恶性的，其它目前不好说。如果你对前面的前面的第一层次降维聚类分群，然后提取上皮细胞后的细分亚群代码有疑惑，可以看：换一个分析策略会导致文章的全部论点都得推倒重来吗
大概是里面的0,1,6,7是可能的恶性肿瘤细胞亚群
应用infercnv的结果
上面的肉眼查看拷贝数，会有一点点主观了，去判断细胞亚群恶性与否。更好的方法是计算具体的每个细胞的拷贝数打分，我这里给出来一个自己的方法，需要读取infercnv_output文件夹里面的 run.final.infercnv_obj对象文件：
代码语言：javascript复制infer_CNV_obj<-readRDS('./infercnv_output/run.final.infercnv_obj')
expr<-infer_CNV_obj@expr.data
expr[1:4,1:4]
data_cnv<-as.data.frame(expr)
dim(expr)
colnames(data_cnv)
rownames(data_cnv)
load(file = 'phe.Rdata')
dim(phe)
sce.all.int = readRDS('2-harmony/sce.all_int.rds')
sce.all.int
sce.all.int=sce.all.int[,colnames(sce.all.int) %in% rownames(phe)]
sce.all.int
identical(colnames(sce.all.int), rownames(phe))
sce.all.int$celltype = phe$celltype
table(sce.all.int$celltype )
meta <- sce.all.int@meta.data
接下来就是解析读取好的读取infercnv_output文件夹里面的 run.final.infercnv_obj对象文件里面的信息啦 ：
代码语言：javascript复制if(T){
tmp1 = expr[,infer_CNV_obj@reference_grouped_cell_indices$`ref-1`]
tmp2 = expr[,infer_CNV_obj@reference_grouped_cell_indices$`ref-2`]
tmp= cbind(tmp1,tmp2)
down=mean(rowMeans(tmp)) - 2 * mean( apply(tmp, 1, sd))
up=mean(rowMeans(tmp)) 2 * mean( apply(tmp, 1, sd))
oneCopy=up-down
oneCopy
a1= down- 2*oneCopy
a2= down- 1*oneCopy
down;up
a3= up 1*oneCopy
a4= up 2*oneCopy
cnv_score_table<-infer_CNV_obj@expr.data
cnv_score_table[1:4,1:4]
cnv_score_mat <- as.matrix(cnv_score_table)
# Scoring
cnv_score_table[cnv_score_mat > 0 & cnv_score_mat < a2] <- "A" #complete loss. 2pts
cnv_score_table[cnv_score_mat >= a2 & cnv_score_mat < down] <- "B" #loss of one copy. 1pts
cnv_score_table[cnv_score_mat >= down & cnv_score_mat < up ] <- "C" #Neutral. 0pts
cnv_score_table[cnv_score_mat >= up & cnv_score_mat <= a3] <- "D" #addition of one copy. 1pts
cnv_score_table[cnv_score_mat > a3 & cnv_score_mat <= a4 ] <- "E" #addition of two copies. 2pts
cnv_score_table[cnv_score_mat > a4] <- "F" #addition of more than two copies. 2pts
# Check
table(cnv_score_table[,1])
# Replace with score
cnv_score_table_pts <- cnv_score_mat
rm(cnv_score_mat)
#
cnv_score_table_pts[cnv_score_table == "A"] <- 2
cnv_score_table_pts[cnv_score_table == "B"] <- 1
cnv_score_table_pts[cnv_score_table == "C"] <- 0
cnv_score_table_pts[cnv_score_table == "D"] <- 1
cnv_score_table_pts[cnv_score_table == "E"] <- 2
cnv_score_table_pts[cnv_score_table == "F"] <- 2
cnv_score_table_pts[1:4,1:4]
str( as.data.frame(cnv_score_table_pts[1:4,1:4]))
cell_scores_CNV <- as.data.frame(colSums(cnv_score_table_pts))
colnames(cell_scores_CNV) <- "cnv_score"
}
上面的代码有一点点复杂，可能是需要大家自行慢慢理解了，有统计学知识这里面。量化的具体的每个细胞的拷贝数打分，进行简单的可视化：
代码语言：javascript复制head(cell_scores_CNV)
score=cell_scores_CNV
head(score)
meta$totalCNV = score[match(colnames(sce.all.int),
rownames(score)),1]
ggplot(meta, aes(x=celltype , y=totalCNV, fill=celltype ))
geom_boxplot()
如下所示可以看到，其中0,1,6还有cycle是恶性细胞亚群啦，恰好是4群，但是7这个亚群就很迷，前面的肉眼看拷贝数热图似乎是一个恶性肿瘤细胞亚群，但是这里看打分呢又没那么恶性：
7这个亚群就很迷
前面的前面的第一层次降维聚类分群，然后提取上皮细胞后的细分亚群代码有疑惑，可以看：换一个分析策略会导致文章的全部论点都得推倒重来吗，整体来说这个复现的代码在百度云分享给大家：
代码语言：javascript复制链接：https://pan.baidu.com/s/1niFqyAiUU3yXK1W26b8RvQ?pwd=nbmj
