R語言里可視化多序列比對(paf格式)的R包:pafr

pafr包的參考鏈接

https://cran.r-project.org/web/packages/pafr/vignettes/Introduction_to_pafr.html

首先用minimap2比對兩個基因組

這里我用NCBI下載的兩個擬南芥基因組做演示

下載兩個基因組

wget https://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/001/735/GCF_000001735.4_TAIR10.1/GCF_000001735.4_TAIR10.1_genomic.fna.gz
wget https://ftp.ncbi.nlm.nih.gov/genomes/all/GCA/019/202/795/GCA_019202795.1_ASM1920279v1/GCA_019202795.1_ASM1920279v1_genomic.fna.gz

解壓重命名

gunzip GCA_019202795.1_ASM1920279v1_genomic.fna.gz
mv GCA_019202795.1_ASM1920279v1_genomic.fna query.fna
grep ">" query.fna | wc -l # 這個里有218 條序列
gunzip GCF_000001735.4_TAIR10.1_genomic.fna.gz
mv GCF_000001735.4_TAIR10.1_genomic.fna target.fna
grep ">" target.fna | wc -l ## 這個里有7條序列

minimap2的安裝

直接使用conda安裝
https://github.com/lh3/minimap2

conda install minimap2

比對

minimap2 -ax asm5 target.fna query.fna > arabidopsis_aln.paf

這個最終的比對結(jié)果有900多兆,自己的電腦R語言讀取應(yīng)該很吃力爱榕,下面的操作還是使用這個R包自帶的數(shù)據(jù)吧

這里修正一個錯誤 -ax參數(shù)最終結(jié)果是sam格式 -cx參數(shù)才是paf格式

minimap2 -cx asm5 target.fna query.fna > arabidopsis_aln.paf

接下來是R語言里的操作

安裝pafr包

install.packages("pafr")

加載需要用到的R包

library(pafr)
library(tidyverse)
library(ggplot2)

讀取數(shù)據(jù)

fungi.paf.1<-read_paf("fungi.paf")
fungi.paf.1 %>% as.data.frame() %>% head()

fungi.paf.2<-read_paf("fungi.paf",include_tags = FALSE)
fungi.paf.2 %>% as.data.frame() %>% head()

共線性的點圖

dotplot(fungi.paf.2)
image.png

指定染色體的共線性

plot_synteny(fungi.paf.2, 
             q_chrom="Q_chr3", 
             t_chrom="T_chr4", 
             centre=TRUE) +
  theme_bw()
image.png

這里有個問題好像是只能1對1,研究研究他的代碼堪澎,看看能不能改成可以多對一

覆蓋度

plot_coverage(fungi.paf.2) -> p1
plot_coverage(fungi.paf.2,fill='qname') -> p2
plot_coverage(fungi.paf.2,fill='qname')+
  scale_fill_brewer(palette = "Set1") -> p3

library(patchwork)
p1+
  p2+theme(legend.position = "none")+
  p3+theme(legend.position = "none")
image.png

今天推文的示例數(shù)據(jù)和代碼可以在公眾號后臺回復(fù)20220317獲取

歡迎大家關(guān)注我的公眾號

小明的數(shù)據(jù)分析筆記本

小明的數(shù)據(jù)分析筆記本 公眾號 主要分享:1、R語言和python做數(shù)據(jù)分析和數(shù)據(jù)可視化的簡單小例子昨凡;2土匀、園藝植物相關(guān)轉(zhuǎn)錄組學(xué)就轧、基因組學(xué)田度、群體遺傳學(xué)文獻閱讀筆記镇饺;3乎莉、生物信息學(xué)入門學(xué)習(xí)資料及自己的學(xué)習(xí)筆記!

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末奸笤,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子监右,更是在濱河造成了極大的恐慌边灭,老刑警劉巖健盒,帶你破解...
    沈念sama閱讀 216,324評論 6 498
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件绒瘦,死亡現(xiàn)場離奇詭異,居然都是意外死亡惰帽,警方通過查閱死者的電腦和手機憨降,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,356評論 3 392
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來授药,“玉大人,你說我怎么就攤上這事悔叽「福” “怎么了?”我有些...
    開封第一講書人閱讀 162,328評論 0 353
  • 文/不壞的土叔 我叫張陵册招,是天一觀的道長。 經(jīng)常有香客問我是掰,道長键痛,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,147評論 1 292
  • 正文 為了忘掉前任匾七,我火速辦了婚禮絮短,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘昨忆。我一直安慰自己丁频,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 67,160評論 6 388
  • 文/花漫 我一把揭開白布邑贴。 她就那樣靜靜地躺著席里,像睡著了一般。 火紅的嫁衣襯著肌膚如雪拢驾。 梳的紋絲不亂的頭發(fā)上奖磁,一...
    開封第一講書人閱讀 51,115評論 1 296
  • 那天,我揣著相機與錄音繁疤,去河邊找鬼署穗。 笑死寥裂,一個胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的案疲。 我是一名探鬼主播封恰,決...
    沈念sama閱讀 40,025評論 3 417
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼褐啡!你這毒婦竟也來了诺舔?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 38,867評論 0 274
  • 序言:老撾萬榮一對情侶失蹤备畦,失蹤者是張志新(化名)和其女友劉穎低飒,沒想到半個月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體懂盐,經(jīng)...
    沈念sama閱讀 45,307評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡褥赊,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,528評論 2 332
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了莉恼。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片拌喉。...
    茶點故事閱讀 39,688評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖俐银,靈堂內(nèi)的尸體忽然破棺而出尿背,到底是詐尸還是另有隱情,我是刑警寧澤捶惜,帶...
    沈念sama閱讀 35,409評論 5 343
  • 正文 年R本政府宣布田藐,位于F島的核電站,受9級特大地震影響吱七,放射性物質(zhì)發(fā)生泄漏汽久。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,001評論 3 325
  • 文/蒙蒙 一踊餐、第九天 我趴在偏房一處隱蔽的房頂上張望回窘。 院中可真熱鬧,春花似錦市袖、人聲如沸啡直。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,657評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽酒觅。三九已至,卻和暖如春微峰,著一層夾襖步出監(jiān)牢的瞬間舷丹,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,811評論 1 268
  • 我被黑心中介騙來泰國打工蜓肆, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留颜凯,地道東北人谋币。 一個月前我還...
    沈念sama閱讀 47,685評論 2 368
  • 正文 我出身青樓,卻偏偏與公主長得像症概,于是被迫代替她去往敵國和親蕾额。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 44,573評論 2 353

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