代碼庫(kù)3-Signac代碼

library(Signac)
counts <- Read10X_h5("../vignette_data/atac_v1_pbmc_10k_filtered_peak_bc_matrix.h5")
fragment_file <- '../vignette_data/atac_v1_pbmc_10k_fragments.tsv.gz'
chrom_assay <- CreateChromatinAssay(counts,sep = c(":", "-"),fragments = fragment_file)
SeuratObj_ATAC <- CreateSeuratObject(chrom_assay,assay = "ATAC")
# SeuratObj_ATAC <- CreateSeuratObject(counts, assay = "ATAC")

SeuratObj_ATAC <- RunTFIDF(SeuratObj_ATAC)
SeuratObj_ATAC <- FindTopFeatures(SeuratObj_ATAC, min.cutoff = 'q0')
SeuratObj_ATAC <- RunSVD(SeuratObj_ATAC)
DepthCor(SeuratObj_ATAC)
SeuratObj_ATAC <- RunUMAP(SeuratObj_ATAC, dims = 2:50, reduction = 'lsi', 
                     reduction.name = 'atac_umap', reduction.key = 'atac_umap')

SeuratObj_ATAC <- FindNeighbors(object = SeuratObj_ATAC, reduction = 'lsi', dims = 2:30)
SeuratObj_ATAC <- FindClusters(object = SeuratObj_ATAC, verbose = FALSE, algorithm = 3)
DimPlot(object = SeuratObj_ATAC, label = TRUE) + NoLegend()

# GeneActivity
library(EnsDb.Hsapiens.v75)
annotations <- GetGRangesFromEnsDb(ensdb = EnsDb.Hsapiens.v75)
seqlevelsStyle(annotations) <- 'UCSC'
genome(annotations) <- "hg19"
Annotation(SeuratObj_ATAC) <- annotations
gene.activities <- GeneActivity(SeuratObj_ATAC)
SeuratObj_ATAC[['ACTIVITY']] <- CreateAssayObject(counts = gene.activities)
SeuratObj_ATAC <- NormalizeData(SeuratObj_ATAC,assay = 'ACTIVITY')
DefaultAssay(SeuratObj_ATAC) <- 'ACTIVITY'
SeuratObj_ATAC <- FindVariableFeatures(SeuratObj_ATAC, selection.method = "vst", nfeatures = 2000)          
LabelPoints(plot = VariableFeaturePlot(SeuratObj_ATAC), points = head(VariableFeatures(SeuratObj_ATAC), 10), repel = TRUE)
SeuratObj_ATAC <- ScaleData(SeuratObj_ATAC)    
SeuratObj_ATAC <- RunPCA(SeuratObj_ATAC)   
ElbowPlot(SeuratObj_ATAC)
SeuratObj_ATAC <- RunUMAP(SeuratObj_ATAC, dims = 1:20, reduction.name = 'ga_umap', reduction.key = 'ga_umap')   
DimPlot(SeuratObj_ATAC, reduction = "ga_umap",group.by = 'true',label = T) + NoLegend()

Idents(SeuratObj_ATAC) <- 'true'
CoveragePlot(SeuratObj_ATAC,region = c('chr5-54070562-54071062','chr1-212806552-212807052'),
             extend.upstream = 40000,extend.downstream = 20000)

參考

https://stuartlab.org/signac/articles/pbmc_vignette

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末粱挡，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子，更是在濱河造成了極大的恐慌吝沫，老刑警劉巖板辽，帶你破解...
    沈念sama閱讀 206,013評(píng)論 6贊 481
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件剿干，死亡現(xiàn)場(chǎng)離奇詭異担神，居然都是意外死亡狱掂，警方通過(guò)查閱死者的電腦和手機(jī)演痒，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,205評(píng)論 2贊 382
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門(mén)，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)趋惨，“玉大人鸟顺，你說(shuō)我怎么就攤上這事∠Ｊ粒” “怎么了诊沪？”我有些...
    開(kāi)封第一講書(shū)人閱讀 152,370評(píng)論 0贊 342
  • 道士緝兇錄：失蹤的賣(mài)姜人
    文/不壞的土叔 我叫張陵养筒，是天一觀的道長(zhǎng)曾撤。 經(jīng)常有香客問(wèn)我，道長(zhǎng)晕粪，這世上最難降的妖魔是什么挤悉？ 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 55,168評(píng)論 1贊 278
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任，我火速辦了婚禮，結(jié)果婚禮上装悲，老公的妹妹穿的比我還像新娘昏鹃。我一直安慰自己，他們只是感情好诀诊，可當(dāng)我...
    茶點(diǎn)故事閱讀 64,153評(píng)論 5贊 371
  • 惡毒庶女頂嫁案：這布局不是一般人想出來(lái)的
    文/花漫 我一把揭開(kāi)白布洞渤。 她就那樣靜靜地躺著，像睡著了一般属瓣。 火紅的嫁衣襯著肌膚如雪载迄。 梳的紋絲不亂的頭發(fā)上，一...
    開(kāi)封第一講書(shū)人閱讀 48,954評(píng)論 1贊 283
  • 城市分裂傳說(shuō)
    那天抡蛙，我揣著相機(jī)與錄音护昧，去河邊找鬼。 笑死粗截，一個(gè)胖子當(dāng)著我的面吹牛惋耙，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播熊昌，決...
    沈念sama閱讀 38,271評(píng)論 3贊 399
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開(kāi)眼绽榛，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來(lái)了婿屹？” 一聲冷哼從身側(cè)響起蒜田，我...
    開(kāi)封第一講書(shū)人閱讀 36,916評(píng)論 0贊 259
  • 萬(wàn)榮殺人案實(shí)錄
    序言：老撾萬(wàn)榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎选泻，沒(méi)想到半個(gè)月后冲粤，有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 43,382評(píng)論 1贊 300
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡页眯，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,877評(píng)論 2贊 323
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年梯捕，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片窝撵。...
    茶點(diǎn)故事閱讀 37,989評(píng)論 1贊 333
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡傀顾，死狀恐怖瓷马，靈堂內(nèi)的尸體忽然破棺而出拣度，到底是詐尸還是另有隱情，我是刑警寧澤谅猾，帶...
    沈念sama閱讀 33,624評(píng)論 4贊 322
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布赐劣，位于F島的核電站嫉拐，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏魁兼。R本人自食惡果不足惜婉徘，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,209評(píng)論 3贊 307
  • 男人毒藥：我在死后第九天來(lái)索命
    文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧盖呼，春花似錦儒鹿、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 30,199評(píng)論 0贊 19
  • 一樁弒父案约炎，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至蟹瘾，卻和暖如春章钾，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背热芹。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 31,418評(píng)論 1贊 260
  • 情欲美人皮
    我被黑心中介騙來(lái)泰國(guó)打工贱傀， 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留，地道東北人伊脓。 一個(gè)月前我還...
    沈念sama閱讀 45,401評(píng)論 2贊 352
  • 代替公主和親
    正文 我出身青樓府寒，卻偏偏與公主長(zhǎng)得像，于是被迫代替她去往敵國(guó)和親报腔。 傳聞我的和親對(duì)象是個(gè)殘疾皇子株搔，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,700評(píng)論 2贊 345

推薦閱讀更多精彩內(nèi)容