位置: IT常识 - 正文

Seurat | 强烈建议收藏的单细胞分析标准流程(基础质控与过滤)(一)(强烈的建议)

编辑:rootadmin
Seurat | 强烈建议收藏的单细胞分析标准流程(基础质控与过滤)(一) 1. 写在前面

推荐整理分享Seurat | 强烈建议收藏的单细胞分析标准流程(基础质控与过滤)(一)(强烈的建议),希望有所帮助,仅作参考,欢迎阅读内容。

文章相关热门搜索词:强烈建议是什么意思,强烈建议用英语怎么说,强烈的建议,强烈建议英文翻译,强烈建议英文翻译,强烈建议英文翻译,强烈建议的英文短语,强烈建议英文翻译,内容如对您有帮助,希望把文章链接给更多的朋友!

作为现在最火的scRNAseq分析包,Seurat当之无愧。😘 本期开始我们介绍一下Seurat包的用法,先从基础质控和过滤开始吧。🥳

2.用到的包rm(list = ls())library(Seurat)library(tidyverse)library(SingleR)library(celldex)library(RColorBrewer)library(SingleCellExperiment)3. 示例数据3.1 读取10X文件

这里我们提供一个转成gene symbols的可读文件,如果大家拿到的是Ensemble ID,可以用之前介绍的方法进行转换。

adj.matrix <- Read10X("./soupX_pbmc10k_filt")

3.2 创建Seurat对象srat <- CreateSeuratObject(adj.matrix,project = "pbmc10k")srat

3.3 查看Seurat对象str(srat)

4. 提取meta.data

这里我们提取一下meta.data,顺便查看一下表头,主要是三列: 👇

dataset ID;UMI/cell (nCount_RNA);detected genes/cell (nFeature_RNA)。meta <- srat@meta.datahead(meta)

5.添加信息5.1 添加线粒体基因信息

不知道大家还记得线粒体基因吗???🤒 在scRNA-seq中,线粒体基因高表达往往代表细胞状态不佳。🧐

srat[["percent.mt"]] <- PercentageFeatureSet(srat, pattern = "^MT-")head(srat$percent.mt)

5.2 添加核糖体基因信息

这里我们试一下添加核糖体基因的信息。👀

srat[["percent.rb"]] <- PercentageFeatureSet(srat, pattern = "^RP[SL]")head(srat$percent.rb)

6. 去除双细胞

scRNAseq的理想情况是每个barcode下只有一个细胞,但在实际情况中会有两个或多个细胞共用一个barcode,我们称之为doublets。🫠

识别并去除doublets的方法很多,常用的有:👇

Scrublet;doubletCells;cxds;bcds;Hybrid;DoubletDetection;DoubletFinder;Solo;DoubletDecon。

这里推荐大家使用DoubletFinder,我们就不进行演示了,以后再做具体介绍。🤗

Seurat | 强烈建议收藏的单细胞分析标准流程(基础质控与过滤)(一)(强烈的建议)

因为我们事先使用Scrublet做过处理了,这里就直接导入准备好的文件吧。

doublets <- read.table("./scrublet_calls.tsv",header = F,row.names = 1)colnames(doublets) <- c("Doublet_score","Is_doublet")srat <- AddMetaData(srat,doublets)head(srat[[]])

7. 可视化7.1 小提琴图

这里我们用VlnPlot探索一下特征的分布情况。

VlnPlot(srat, fill.by = "feature", # "feature", "ident" features = c("nFeature_RNA","nCount_RNA","percent.mt","percent.rb"), ncol = 4, pt.size = 0.1) + theme(plot.title = element_text(size=10))

7.2 散点图

这里利用散点图,我们看一下不同变量间的相关性。

FeatureScatter(srat, feature1 = "nCount_RNA", feature2 = "percent.mt")

FeatureScatter(srat, feature1 = "nCount_RNA", feature2 = "nFeature_RNA")

FeatureScatter(srat, feature1 = "nCount_RNA", feature2 = "percent.rb")

FeatureScatter(srat, feature1 = "percent.rb", feature2 = "percent.mt")

FeatureScatter(srat, feature1 = "nFeature_RNA", feature2 = "Doublet_score")

Note!

这里我们可以看到高线粒体基因与低UMI计数相关,可以理解为死细胞。 🫠再看一下核糖体基因与线粒体基因,显著负相关。 😉doublet和基因表达数之间也有一定的相关性。8. 添加信息8.1 过滤

接着我们定义一下过滤条件,将质量差、非单细胞的数据剔除掉。🫵

srat[['QC']] <- ifelse(srat@meta.data$Is_doublet == 'True', 'Doublet','Pass')srat[['QC']] <- ifelse(srat@meta.data$nFeature_RNA < 500 & srat@meta.data$QC == 'Pass', 'Low_nFeature', srat@meta.data$QC )srat[['QC']] <- ifelse(srat@meta.data$nFeature_RNA < 500 & srat@meta.data$QC != 'Pass' & srat@meta.data$QC != 'Low_nFeature', paste('Low_nFeature', srat@meta.data$QC, sep = ','), srat@meta.data$QC )srat[['QC']] <- ifelse(srat@meta.data$percent.mt > 15 & srat@meta.data$QC == 'Pass', 'High_MT',srat@meta.data$QC )srat[['QC']] <- ifelse(srat@meta.data$nFeature_RNA < 500 & srat@meta.data$QC != 'Pass' & srat@meta.data$QC !='High_MT', paste('High_MT',srat@meta.data$QC,sep = ','), srat@meta.data$QC )table(srat[['QC']])8.2 可视化

这里我们只将通过过滤条件的数据展示出来,大家可以和过滤前的比较一下。

VlnPlot(subset(srat, subset = QC == 'Pass'), features = c("nFeature_RNA", "nCount_RNA", "percent.mt","percent.rb"), ncol = 4, pt.size = 0.1) + theme(plot.title = element_text(size=10))

最后祝大家早日不卷!~

需要示例数据的小伙伴,在公众号回复Seurat获取吧!

点个在看吧各位~ ✐.ɴɪᴄᴇ ᴅᴀʏ 〰

本文链接地址:https://www.jiuchutong.com/zhishi/284125.html 转载请保留说明!

上一篇:发财树的养殖方法和注意事项(发财树的养殖方法和浇水时间)

下一篇:蕨菜的功效与作用(蕨菜的功效与作用及营养价值)

  • 核定征收的一般纳税人开专票怎么入账
  • 中税协是什么意思
  • 进项税有余额但没有余额
  • 个人所得税手续费返还时间
  • 一般纳税人的税点
  • 停车位划线套什么定额
  • 不抵扣勾选怎么撤销
  • 转登小规模以前的留抵税额能申请退吗
  • 全资收购企业需要交税吗
  • 内涵报酬率和必要投资报酬率
  • 月销售额不超过10万
  • 待抵扣税金凭证分录
  • 短期借款会计核算
  • 外币结汇怎么做账
  • 无法提供财产原值凭证
  • 用外购存货投资分录怎么写?
  • 固定资产并账
  • 增值税晚交一个月会怎么样
  • 所得税汇算调增调减是什么意思
  • 税收奖励需要纳税吗
  • 开票软件的地址怎么修改
  • 代扣代征税款有哪些
  • 预收贷款是什么会计科目
  • 应付职工薪酬在借方是什么意思
  • 以现金收回已核销的不良贷款分录?
  • 去年的管理费用怎么冲
  • 什么情况下确认成本
  • 鸿蒙系统怎么设置导航键
  • 住房公积金有什么用途和价值
  • 失控票要在抵扣当月转出吗
  • 外经证预缴税款必须去外地交税吗
  • 洗牙的利和弊
  • 增值税专用发票上注明的价款含税吗
  • 让绿萝疯长的妙招
  • mgaqdesk.exe进程有什么作用 mgaqdesk进程查询
  • 扣除年度未扣除怎么计算
  • 会计不忙
  • 出租门面是否缴增值税
  • vue打包注意事项
  • .patch文件
  • svn命令行拉取代码
  • 或有资产什么时候要披露
  • 股权转让税收规定
  • 来料加工企业的税率是多少
  • 经销商自用车是指什么
  • php判断是否为整数
  • 职工保险报账
  • 股东分红的会计分录怎么做
  • 固定资产货币化,货币资产保险化,保险资产信托化
  • 已申报营业税未开发票
  • 固定资产折旧常见方法
  • 清算时存货是否要交税
  • mysql数据表分区
  • 交车险代收的车可以退吗
  • 购房补贴退契税多久到账
  • 企业小汽车折旧年限
  • 设备租赁公司怎么样
  • 高新企业预缴增值税税率
  • 退回投标保证金在投诉阶段怎么办
  • 固定资产计提完折旧报废的账务处理
  • 银行扣掉的手续费怎么算
  • 哪些工资属于社会福利
  • 通过T-SQL语句实现数据库备份与还原的代码
  • 苹果今日报价
  • vmware 10虚拟机
  • vcpkgsrv.exe是什么进程
  • c盘esd是什么文件夹
  • win7系统防火墙有必要开吗
  • win7怎么在桌面添加时钟
  • cocos2dx camera
  • linux中文件权限读写执行的三种标志符号依次是
  • dos命令 for
  • javascript语言中,以下关于array
  • eclipse窗口显示设置
  • 编写js代码要注意什么
  • js模块化框架
  • 广东省电子税务局app下载官网
  • 契税减税、免税条件
  • 国税申报时间2023
  • 税务主管机关有哪些
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设