单细胞-第五节 多样本数据分析,打分R包AUCell

文件在单细胞\5_GC_py\1_single_cell\3.AUCell.Rmd

1.基因

rm(list = ls())
load("g.Rdata")

2.AUCell

https://www.ncbi.nlm.nih.gov/pmc/articles/PMC9897923

    IF: NA NA NA

用这个文章里的方法，将单细胞亚群的marker基因与ros相关基因取交集，用作AUCell的基因集

The intersection of marker genes was selected based on strong population specificity (adj_p < 0.05 & |avg_log2FoldChange| > 1.5 & pct.1 > 0.5 & pct.2 < 0.5) from each cell subgroup and factors related to OS responses.

seu.obj是seurat+singleR得出的对象，allmarkers是findallmarkers得到的数据框。

library(Seurat)
library(tidyverse)
load("seu.obj.Rdata")
DotPlot(seu.obj,features = g,cols = "RdYlBu")+RotatedAxis()

AUCell用于计算每个细胞中特定基因集的活性程度。用上面的gi作为基因集来计算。

AUCell的三个步骤:

Build the rankings：矩阵中的每个细胞里，给基因进行排序。
Calculate the Area Under the Curve (AUC)：计算每个细胞的AUC值
Set the assignment thresholds：计算活性区分的阈值

library(GSEABase)
geneSets <- GeneSet(g, setName="pyroptosis")
geneSets
#