位置: 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 转载请保留说明!

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

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

  • 个体工商户可以开发票吗
  • 企业取得房租收据怎么写
  • 在计算应纳税所得额时下列
  • 增值税的特点是实行
  • 设备出租的账务处理
  • 装修行业小规模纳税人增值税专票
  • 补缴以前年度附加税
  • 借贷必相等为什么是错的
  • 电子设备残值率的最新规定
  • 建筑企业异地预缴增值税计算
  • 卷式发票要注意什么
  • 公司注销房产如何转给个人
  • 营改增土地增值税的计算
  • 可以抵扣的增值税计入什么科目
  • 小微企业免征增值税优惠
  • 税务登记五证合一是哪五证
  • 吊车租赁费计入什么会计科目
  • 小规模企业增值税税率
  • 固定资产处理怎么入账
  • 税务年报网上怎么申报小微企业
  • 购买工装的进项能抵扣吗
  • 关于解决经费问题的请示
  • 返利销售会计处理办法
  • 计提社保公司承担部分怎么算
  • u盘加载缓慢
  • win11发热严重怎么解决
  • 找发票抵工资
  • 关闭密码保护共享后又自动开启
  • php 生成缩略图
  • 代收消费税计算
  • 苹果电脑快速启动键是哪个
  • nmstt.exe - nmstt是什么进程 有什么用
  • PHP:stream_filter_remove()的用法_Stream函数
  • 用php做一个表格
  • PHP:pcntl_sigprocmask()的用法_PCNTL函数
  • 迪格庄园阿拉扎尼河谷红葡萄酒750ml
  • php rsa
  • 稳岗补贴怎么发放给员工
  • php实现数组排序,所有奇数在前偶数在后怎么排序
  • 借递延所得税资产贷以前年度损益调整
  • vue.js前端
  • 基于Java+Springboot+vue在线版权登记管理系统设计实现
  • 债券发行的分录
  • db2之间的数据库迁移
  • 增值税专用发票和普通发票的区别
  • 报废产品属于什么会计科目
  • 劳务分包的形式完成施工任务
  • 增值税纳税申报类型有哪些
  • 工程结算属于哪类账户
  • 长期待摊费用的摊销期限应该是
  • 交城市维护建设税减半征收吗?
  • 只有销项没有进项怎么交税
  • 主播工资不发应该到哪里投诉
  • 退回的增值税税费怎么做会计记录
  • 研发加计扣除抵减税额怎么算
  • 跨年的个人所得税可以更正吗
  • 案例解析企业所需资金
  • 公司账本需要保留几年
  • 周转金怎么计算
  • 转账支票有效期6个月
  • mysql kill -9
  • centos怎么调出终端
  • freebsd操作命令
  • windows关闭安全引导
  • win8.1改语言
  • linux系统中QQ的使用和配置
  • windows下部署phpipam
  • win10资源管理器启动不了
  • linux文件系统的根目录的i节点号为
  • 为什么调用不了函数
  • python中print函数的end参数
  • 商务英语考英语笔译 算跨考吗
  • cmd Tasklist与Tskill管理Windows系统进程
  • 利用pm2部署多个设备
  • android FileNotFoundException(Is a Directory)解决办法
  • js asc
  • ActivityManagerService(四)
  • 个税更正申报如何导出大厅申报表
  • 江苏预包装食品备案网上流程
  • 停车场收费需要什么手续
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设