GWAS分析-曼哈頓圖 (二)

上次給大家簡單分享了GWAS分析一些簡單術(shù)語及相關(guān)事件(http://www.reibang.com/p/67e1878845e3)磷醋。

今天給大家分享一下如何使用已有的GWAS分析結(jié)果畫曼哈頓圖,剛開始,先不給大家講具體分析流程和GWAS原理迅脐,我們先畫圖夏哭,增強一下自己信心里初,等畫完圖品擎,我們再一步步從頭開始講具體GWAS分析所需要的文件蛮原,軟件,模型以及注意事項创淡。

話不多說痴晦,進入正題,今天畫曼哈頓圖我們用到的工具是一個R包--qqman琳彩。

第一步:安裝誊酌,加載R包

BiocManager::install("qqman") #利用BiocManager安裝
library("qqman") #加載R包

第二步:查看示例文件及數(shù)據(jù)

data(package="qqman")  #查看qqman包中的測試數(shù)據(jù)部凑,此包中包gwasResults 和snpsOfInterest 兩個測試數(shù)據(jù)
image.jpeg
head(gwasResults)  #查看gwasResults的數(shù)據(jù)格式
image.jpeg
dim(gwasResults) #查看有多少個標記
image.jpeg

gwasResults包括模擬的分布于22條染色體上的16470個標記,數(shù)據(jù)格式包括四列术辐。
第一列為SNP(標記名稱)
第二列為CHR(染色體ID)
第三列為BP(標記位置)
第四列為P(顯著性水平)

as.data.frame(table(gwasResults$CHR)) #查看每條染色體上標記數(shù)目
image.jpeg
head(snpsOfInterest)#查看snpsOfInterest的數(shù)據(jù)格式
image.jpeg

在曼哈頓圖中顯示為高亮的標記砚尽。

第三步:做圖
我們先畫一個最基本的曼哈頓圖

Manhattan(gwasResults)
manhattan_1.jpeg

將不同染色體設置不同顏色施无,并設置標題辉词。

manhattan(gwasResults, main = "Manhattan Plot", ylim = c(0, 10), cex = 0.6, cex.axis = 0.9, 
          col = c("blue", "orange"), suggestiveline = F, genomewideline = F, chrlabs = c(1:20, "F", "M")) 
#main:更改標題, ylim: y軸范圍, cex:調(diào)整點的大小猾骡,col:調(diào)整顏色瑞躺, suggestiveline 和genomewideline分別為建議閾值和軟件計算出的閾值,chrlabs:染色體ID
manhattan_2.jpeg

我們也可以單獨畫任意一條染色體的曼哈頓圖

manhattan(subset(gwasResults,CHR == 3), suggestiveline = F, genomewideline = F)
chr3.jpeg

在曼哈頓圖中展現(xiàn)高亮的標記兴想。

manhattan(gwasResults, highlight = snpsOfInterest)
manhattan_4.jpeg

畫某條染色體的局部圖幢哨,這里我們畫的是200-500之間所有的標記。

manhattan(subset(gwasResults, CHR == 3), highlight = snpsOfInterest, 
          xlim = c(200, 500), main = "Chr 3",suggestiveline = F)
manhattan_5.jpeg

將P值小于0.001的標記名稱標注在曼哈頓圖上嫂便。

manhattan(gwasResults, annotatePval = 0.001, suggestiveline = F)
manhattan_6.jpg

另外捞镰,這個R包也可以畫QQ-圖。

qq(gwasResults$P)
QQ_plot.jpeg

今天關(guān)于使用qqman做圖的分享就到這里毙替,是不是很簡單岸售。有沒有想馬上進行數(shù)據(jù)分析,畫出自己的曼哈頓圖呢厂画?下期見凸丸。

參考:
1.https://cran.r-project.org/web/packages/qqman/index.html
2.Turner, (2018). qqman: an R package for visualizing GWAS results using Q-Q and manhattan plots. Journal of Open Source Software, 3(25), 731, https://doi.org/10.21105/joss.00731.

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市袱院,隨后出現(xiàn)的幾起案子屎慢,更是在濱河造成了極大的恐慌,老刑警劉巖忽洛,帶你破解...
    沈念sama閱讀 218,682評論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件腻惠,死亡現(xiàn)場離奇詭異,居然都是意外死亡欲虚,警方通過查閱死者的電腦和手機集灌,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,277評論 3 395
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來苍在,“玉大人绝页,你說我怎么就攤上這事〖盘瘢” “怎么了续誉?”我有些...
    開封第一講書人閱讀 165,083評論 0 355
  • 文/不壞的土叔 我叫張陵,是天一觀的道長初肉。 經(jīng)常有香客問我酷鸦,道長,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,763評論 1 295
  • 正文 為了忘掉前任臼隔,我火速辦了婚禮嘹裂,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘摔握。我一直安慰自己寄狼,他們只是感情好,可當我...
    茶點故事閱讀 67,785評論 6 392
  • 文/花漫 我一把揭開白布氨淌。 她就那樣靜靜地躺著泊愧,像睡著了一般。 火紅的嫁衣襯著肌膚如雪盛正。 梳的紋絲不亂的頭發(fā)上删咱,一...
    開封第一講書人閱讀 51,624評論 1 305
  • 那天,我揣著相機與錄音豪筝,去河邊找鬼痰滋。 笑死,一個胖子當著我的面吹牛续崖,可吹牛的內(nèi)容都是我干的敲街。 我是一名探鬼主播,決...
    沈念sama閱讀 40,358評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼袜刷,長吁一口氣:“原來是場噩夢啊……” “哼聪富!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起著蟹,我...
    開封第一講書人閱讀 39,261評論 0 276
  • 序言:老撾萬榮一對情侶失蹤墩蔓,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后萧豆,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體奸披,經(jīng)...
    沈念sama閱讀 45,722評論 1 315
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,900評論 3 336
  • 正文 我和宋清朗相戀三年涮雷,在試婚紗的時候發(fā)現(xiàn)自己被綠了阵面。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 40,030評論 1 350
  • 序言:一個原本活蹦亂跳的男人離奇死亡洪鸭,死狀恐怖样刷,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情览爵,我是刑警寧澤置鼻,帶...
    沈念sama閱讀 35,737評論 5 346
  • 正文 年R本政府宣布,位于F島的核電站蜓竹,受9級特大地震影響箕母,放射性物質(zhì)發(fā)生泄漏储藐。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,360評論 3 330
  • 文/蒙蒙 一嘶是、第九天 我趴在偏房一處隱蔽的房頂上張望钙勃。 院中可真熱鬧,春花似錦聂喇、人聲如沸辖源。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,941評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽同木。三九已至,卻和暖如春跛十,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背秕硝。 一陣腳步聲響...
    開封第一講書人閱讀 33,057評論 1 270
  • 我被黑心中介騙來泰國打工芥映, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人远豺。 一個月前我還...
    沈念sama閱讀 48,237評論 3 371
  • 正文 我出身青樓奈偏,卻偏偏與公主長得像,于是被迫代替她去往敵國和親躯护。 傳聞我的和親對象是個殘疾皇子惊来,可洞房花燭夜當晚...
    茶點故事閱讀 44,976評論 2 355

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