代碼庫10-ArchR標(biāo)準(zhǔn)流程

library(ArchR)
setwd('...')

addArchRGenome('hg38')
addArchRThreads(threads = 10) 

# fragment_files
fragment_files = c(Control1 = "Control1_fragments.tsv.gz",
                   Control2 = "Control2_fragments.tsv.gz",
                   Control3 = "Control3_fragments.tsv.gz",
                   Control4 = "Control4_fragments.tsv.gz",
                   Control5 = "Control5_fragments.tsv.gz")
# validBarcodes_list
# validBarcodes_list中的barcode需要與fragment文件第四行的細(xì)胞barcode一致
# 在Signac中，barcode存放在以下位置：
validBarcodes_list <- SeuratObj_ATAC@assays$ATAC@fragments %>% lapply(function(x){x@cells})
names(validBarcodes_list) <- names(fragment_files)
sapply(validBarcodes_list,length)

# 在當(dāng)前路徑下為每個fragment建.arrow文件
ArrowFiles <- c()
for(fragment_name in names(fragment_files)){
  # fragment_name <- 'Control1'
  fragment <- fragment_files[fragment_name]
  print(fragment)
  ArrowFile <- createArrowFiles(fragment ,validBarcodes = validBarcodes_list[[fragment_name]],
                                force = T, minTSS = 0,minFrags = 0, maxFrags = 1e+09)
  ArrowFiles <- c(ArrowFiles,ArrowFile)
}

# 創(chuàng)建proj
proj <- ArchRProject(ArrowFiles,outputDirectory = ".", copyArrows = F,showLogo = F)
proj <- addIterativeLSI(proj,dimsToUse = 1:50,iterations = 3,force = T)
proj <- addClusters(proj,reducedDims = 'IterativeLSI')
proj <- addGroupCoverages(proj)
proj <- addReproduciblePeakSet(proj,pathToMacs2 = '/home/timo/anaconda3/bin/macs3')
proj <- addPeakMatrix(proj)

# 提取GeneScoreMatrix
GeneScoreMatrix <- getMatrixFromProject(proj,useMatrix = "GeneScoreMatrix")
ArchR_GA <- GeneScoreMatrix@assays@data@listData$GeneScoreMatrix
rownames(ArchR_GA) <- GeneScoreMatrix@elementMetadata@listData$name
colnames(ArchR_GA) <- colnames(GeneScoreMatrix)
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 人面猴
    序言：七十年代末大脉，一起剝皮案震驚了整個濱河市搞监，隨后出現(xiàn)的幾起案子，更是在濱河造成了極大的恐慌镰矿，老刑警劉巖琐驴，帶你破解...
    沈念sama閱讀 206,013評論 6贊 481
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場離奇詭異秤标，居然都是意外死亡绝淡，警方通過查閱死者的電腦和手機，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,205評論 2贊 382
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進店門苍姜，熙熙樓的掌柜王于貴愁眉苦臉地迎上來牢酵，“玉大人，你說我怎么就攤上這事衙猪♀梢遥” “怎么了布近？”我有些...
    開封第一講書人閱讀 152,370評論 0贊 342
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵，是天一觀的道長潘拨。 經(jīng)常有香客問我吊输，道長，這世上最難降的妖魔是什么铁追？ 我笑而不...
    開封第一講書人閱讀 55,168評論 1贊 278
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任季蚂，我火速辦了婚禮，結(jié)果婚禮上琅束，老公的妹妹穿的比我還像新娘扭屁。我一直安慰自己，他們只是感情好涩禀，可當(dāng)我...
    茶點故事閱讀 64,153評論 5贊 371
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布料滥。 她就那樣靜靜地躺著，像睡著了一般艾船。 火紅的嫁衣襯著肌膚如雪葵腹。 梳的紋絲不亂的頭發(fā)上，一...
    開封第一講書人閱讀 48,954評論 1贊 283
  • 城市分裂傳說
    那天屿岂，我揣著相機與錄音践宴，去河邊找鬼。 笑死爷怀，一個胖子當(dāng)著我的面吹牛阻肩，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播运授，決...
    沈念sama閱讀 38,271評論 3贊 399
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼烤惊，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了吁朦？” 一聲冷哼從身側(cè)響起柒室，我...
    開封第一講書人閱讀 36,916評論 0贊 259
  • 萬榮殺人案實錄
    序言：老撾萬榮一對情侶失蹤，失蹤者是張志新（化名）和其女友劉穎逗宜，沒想到半個月后伦泥，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 43,382評論 1贊 300
  • ?護林員之死
    正文 獨居荒郊野嶺守林人離奇死亡锦溪，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 35,877評論 2贊 323
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年不脯，在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片刻诊。...
    茶點故事閱讀 37,989評論 1贊 333
  • 活死人
    序言：一個原本活蹦亂跳的男人離奇死亡防楷，死狀恐怖，靈堂內(nèi)的尸體忽然破棺而出则涯，到底是詐尸還是另有隱情复局，我是刑警寧澤冲簿，帶...
    沈念sama閱讀 33,624評論 4贊 322
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站亿昏，受9級特大地震影響峦剔，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜角钩，卻給世界環(huán)境...
    茶點故事閱讀 39,209評論 3贊 307
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一吝沫、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧递礼，春花似錦惨险、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,199評論 0贊 19
  • 一樁弒父案辫愉，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至将硝，卻和暖如春恭朗，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背依疼。 一陣腳步聲響...
    開封第一講書人閱讀 31,418評論 1贊 260
  • 情欲美人皮
    我被黑心中介騙來泰國打工冀墨， 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留，地道東北人涛贯。 一個月前我還...
    沈念sama閱讀 45,401評論 2贊 352
  • 代替公主和親
    正文 我出身青樓，卻偏偏與公主長得像蔚出，于是被迫代替她去往敵國和親弟翘。 傳聞我的和親對象是個殘疾皇子，可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 42,700評論 2贊 345

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