snp曼哈頓圖繪制

使用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)

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

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

繪制單性狀曼哈頓圖

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"))

繪制多性狀曼哈頓圖

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"))

繪制環(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)

繪制單性狀QQ圖

CMplot(pig60K,plot.type = "q",threshold = 0.05)

繪制多性狀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")

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末凰浮,一起剝皮案震驚了整個濱河市我抠,隨后出現(xiàn)的幾起案子苇本,更是在濱河造成了極大的恐慌,老刑警劉巖菜拓,帶你破解...
    沈念sama閱讀 206,839評論 6 482
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件知态,死亡現(xiàn)場離奇詭異劳殖,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)衡楞,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,543評論 2 382
  • 文/潘曉璐 我一進(jìn)店門驹沿,熙熙樓的掌柜王于貴愁眉苦臉地迎上來犀盟,“玉大人扼劈,你說我怎么就攤上這事往枷。” “怎么了贰逾?”我有些...
    開封第一講書人閱讀 153,116評論 0 344
  • 文/不壞的土叔 我叫張陵,是天一觀的道長菠秒。 經(jīng)常有香客問我疙剑,道長,這世上最難降的妖魔是什么践叠? 我笑而不...
    開封第一講書人閱讀 55,371評論 1 279
  • 正文 為了忘掉前任言缤,我火速辦了婚禮,結(jié)果婚禮上禁灼,老公的妹妹穿的比我還像新娘管挟。我一直安慰自己,他們只是感情好弄捕,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,384評論 5 374
  • 文/花漫 我一把揭開白布僻孝。 她就那樣靜靜地躺著,像睡著了一般守谓。 火紅的嫁衣襯著肌膚如雪穿铆。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 49,111評論 1 285
  • 那天斋荞,我揣著相機(jī)與錄音荞雏,去河邊找鬼。 笑死平酿,一個胖子當(dāng)著我的面吹牛凤优,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播蜈彼,決...
    沈念sama閱讀 38,416評論 3 400
  • 文/蒼蘭香墨 我猛地睜開眼筑辨,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了柳刮?” 一聲冷哼從身側(cè)響起挖垛,我...
    開封第一講書人閱讀 37,053評論 0 259
  • 序言:老撾萬榮一對情侶失蹤痒钝,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后痢毒,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體送矩,經(jīng)...
    沈念sama閱讀 43,558評論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,007評論 2 325
  • 正文 我和宋清朗相戀三年哪替,在試婚紗的時候發(fā)現(xiàn)自己被綠了栋荸。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,117評論 1 334
  • 序言:一個原本活蹦亂跳的男人離奇死亡凭舶,死狀恐怖晌块,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情帅霜,我是刑警寧澤匆背,帶...
    沈念sama閱讀 33,756評論 4 324
  • 正文 年R本政府宣布,位于F島的核電站身冀,受9級特大地震影響钝尸,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜搂根,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,324評論 3 307
  • 文/蒙蒙 一珍促、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧剩愧,春花似錦猪叙、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,315評論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至五督,卻和暖如春藏否,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背充包。 一陣腳步聲響...
    開封第一講書人閱讀 31,539評論 1 262
  • 我被黑心中介騙來泰國打工副签, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人基矮。 一個月前我還...
    沈念sama閱讀 45,578評論 2 355
  • 正文 我出身青樓淆储,卻偏偏與公主長得像,于是被迫代替她去往敵國和親家浇。 傳聞我的和親對象是個殘疾皇子本砰,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,877評論 2 345

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