使用CMplot包繪制環(huán)形曼哈度圖

安裝并加載所需R包

# install.packages("CMplot")
library(CMplot)

基本用法

CMplot(Pmap, col=c("#377EB8", "#4DAF4A", "#984EA3", "#FF7F00"),
      bin.size=1e6, bin.max=NULL, pch=19, band=1, cir.band=0.5, H=1.5,
      ylim=NULL, cex.axis=1, plot.type="b", multracks=FALSE, cex=c(0.5,1,1),
      r=0.3, xlab="Chromosome", ylab=expression(-log[10](italic(p))), xaxs="i",
      yaxs="r", outward=FALSE, threshold = NULL, threshold.col="red",
      threshold.lwd=1, threshold.lty=2, amplify= TRUE, chr.labels=NULL,
      signal.cex = 1.5, signal.pch = 19, signal.col="red", signal.line=1,
      cir.chr=TRUE, cir.chr.h=1.5, chr.den.col=c("darkgreen", "yellow", "red")
      , cir.legend=TRUE, cir.legend.cex=0.6, cir.legend.col="black",
      LOG10=TRUE, box=FALSE, conf.int.col="grey", file.output=TRUE,
      file="jpg", dpi=300, memo="")

常用參數(shù)

Pmap    輸入數(shù)據(jù)文件
col 設(shè)置不同染色體中點(diǎn)的顏色
cex 設(shè)置點(diǎn)的大小
pch 設(shè)置點(diǎn)的形狀
band    設(shè)置不同染色體之間的間隔
H   設(shè)置每個圈的高度
ylim    設(shè)置y軸的范圍
bin.size    設(shè)置SNP密度圖中的窗口大小
cex.axis    設(shè)置坐標(biāo)軸字體和標(biāo)簽字體的大小
plot.type   設(shè)置不同的繪圖類型盟戏,可以設(shè)定為 "d", "c", "m", "q" or "b"
multracks   設(shè)置是否需要繪制多個track
r   設(shè)置圈的半徑大小
xlab    設(shè)置x軸標(biāo)簽
ylab    設(shè)置y軸標(biāo)簽
outward 設(shè)置點(diǎn)的朝向是否向外
threshold   設(shè)置閾值并添加閾值線
threshold.col   設(shè)置閾值線的顏色
threshold.lwd   設(shè)置閾值線的寬度
threshold.lty   設(shè)置閾值線的類型
amplify 設(shè)置是否放大顯著的點(diǎn)
signal.cex  設(shè)置顯著點(diǎn)的大小
signal.pch  設(shè)置顯著點(diǎn)的形狀
signal.col  設(shè)置顯著點(diǎn)的顏色
chr.labels  設(shè)置染色體的標(biāo)簽
chr.den.col 設(shè)置SNP密度圖的顏色
cir.band    設(shè)置環(huán)狀曼哈度圖中不同染色體之間的間隔
cir.chr 設(shè)置是否顯示染色體的邊界
cir.chr.h   設(shè)置染色體邊界的高度
cir.legend  設(shè)置是否顯示圖例
cir.legend.cex  設(shè)置圖例字體的大小
cir.legend.col  設(shè)置圖例的顏色
LOG10   設(shè)置是否對p-value取log10對數(shù)
conf.int.col    設(shè)置QQ圖中置信區(qū)間的顏色
file.output 設(shè)置是否輸出圖片
file    設(shè)置輸出圖片的格式酸休,可以設(shè)定為"jpg", "pdf", "tiff"
dpi 設(shè)置輸出圖片的分辨度
memo    設(shè)置輸出圖片文件的名字

加載并查看示例數(shù)據(jù)

data(pig60K)
head(pig60K)
          SNP Chromosome Position    trait1     trait2     trait3
1 ALGA0000009          1    52297 0.7738187 0.51194318 0.51194318
2 ALGA0000014          1    79763 0.7738187 0.51194318 0.51194318
3 ALGA0000021          1   209568 0.7583016 0.98405289 0.98405289
4 ALGA0000022          1   292758 0.7200305 0.48887140 0.48887140
5 ALGA0000046          1   747831 0.9736840 0.22096836 0.22096836
6 ALGA0000047          1   761957 0.9174565 0.05753712 0.05753712

基本數(shù)據(jù)格式:

前三列分別為SNP的名稱乞巧,所在染色體,SNP的位置器钟,
后面每列為不同性狀的P值津坑,每個性狀單獨(dú)一列

默認(rèn)繪圖(分別繪制出SNP密度圖,曼哈頓圖傲霸,環(huán)形曼哈頓圖和QQ圖)

CMplot(pig60K)
1.jpg
2.jpg
3.jpg
4.jpg
5.jpg
6.jpg
7.jpg
8.jpg

單獨(dú)繪制SNP密度圖

CMplot(pig60K,plot.type = "d",bin.size = 1e6, col = c("darkgreen","yellow","red"))
9.jpg

繪制單性狀曼哈頓圖

CMplot(pig60K,plot.type = "m",threshold = c(0.01,0.05)/nrow(pig60K),threshold.col=c('grey','black'),
       threshold.lty = c(1,2),threshold.lwd = c(1,1), amplify = T,
       signal.cex = c(1,1), signal.pch = c(20,20),signal.col = c("red","orange"))
10.jpg
11.jpg
12.jpg

繪制多性狀曼哈頓圖

CMplot(pig60K,plot.type = "m",threshold = c(0.01,0.05)/nrow(pig60K),threshold.col=c('grey','black'),
       threshold.lty = c(1,2),threshold.lwd = c(1,1), amplify = T, multracks = T,
       signal.cex = c(1,1), signal.pch = c(20,20),signal.col = c("red","orange"))
13.jpg
14.jpg

繪制環(huán)形曼哈頓圖

CMplot(pig60K,plot.type="c",r=0.5,threshold=c(0.01,0.05)/nrow(pig60K),cex = 0.5, 
       threshold.col = c("red","orange"), threshold.lty = c(1,2),amplify = T, cir.chr.h = 2,
       signal.cex = c(2,2), signal.pch = c(19,20), signal.col=c("red","green"),outward=TRUE)
15.jpg

繪制單性狀QQ圖

CMplot(pig60K,plot.type = "q",threshold = 0.05)
16.jpg
17.jpg
18.jpg

繪制多性狀QQ圖

CMplot(pig60K,plot.type = "q",multracks = T, threshold = 0.05, threshold.col = "orange",
       amplify = T,signal.cex = 1.5, signal.pch = 20, signal.col = "red")
19.jpg
20.jpg
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末疆瑰,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子昙啄,更是在濱河造成了極大的恐慌穆役,老刑警劉巖,帶你破解...
    沈念sama閱讀 217,277評論 6 503
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件梳凛,死亡現(xiàn)場離奇詭異耿币,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)韧拒,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,689評論 3 393
  • 文/潘曉璐 我一進(jìn)店門淹接,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人叛溢,你說我怎么就攤上這事蹈集。” “怎么了雇初?”我有些...
    開封第一講書人閱讀 163,624評論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長减响。 經(jīng)常有香客問我靖诗,道長郭怪,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,356評論 1 293
  • 正文 為了忘掉前任刊橘,我火速辦了婚禮鄙才,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘促绵。我一直安慰自己攒庵,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,402評論 6 392
  • 文/花漫 我一把揭開白布败晴。 她就那樣靜靜地躺著浓冒,像睡著了一般。 火紅的嫁衣襯著肌膚如雪尖坤。 梳的紋絲不亂的頭發(fā)上稳懒,一...
    開封第一講書人閱讀 51,292評論 1 301
  • 那天,我揣著相機(jī)與錄音慢味,去河邊找鬼场梆。 笑死,一個胖子當(dāng)著我的面吹牛纯路,可吹牛的內(nèi)容都是我干的或油。 我是一名探鬼主播,決...
    沈念sama閱讀 40,135評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼驰唬,長吁一口氣:“原來是場噩夢啊……” “哼顶岸!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起定嗓,我...
    開封第一講書人閱讀 38,992評論 0 275
  • 序言:老撾萬榮一對情侶失蹤蜕琴,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后宵溅,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體凌简,經(jīng)...
    沈念sama閱讀 45,429評論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,636評論 3 334
  • 正文 我和宋清朗相戀三年雏搂,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片凸郑。...
    茶點(diǎn)故事閱讀 39,785評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖矛市,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情,我是刑警寧澤而昨,帶...
    沈念sama閱讀 35,492評論 5 345
  • 正文 年R本政府宣布救氯,位于F島的核電站,受9級特大地震影響歌憨,放射性物質(zhì)發(fā)生泄漏着憨。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,092評論 3 328
  • 文/蒙蒙 一务嫡、第九天 我趴在偏房一處隱蔽的房頂上張望甲抖。 院中可真熱鬧,春花似錦心铃、人聲如沸准谚。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,723評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽氛魁。三九已至,卻和暖如春厅篓,著一層夾襖步出監(jiān)牢的瞬間秀存,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,858評論 1 269
  • 我被黑心中介騙來泰國打工羽氮, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留或链,地道東北人。 一個月前我還...
    沈念sama閱讀 47,891評論 2 370
  • 正文 我出身青樓档押,卻偏偏與公主長得像澳盐,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子令宿,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,713評論 2 354

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