# # # R代码从装饰图案的PlottingIdiograms来源。Rnw的utf - 8编码:# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:包# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(SNPchip) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:chr1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # plotIdiogram(“1”,构建=“hg19 cex = 0.8) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:chr1NoLabels # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # plotIdiogram(“1”,构建=“hg19 cex = 0.8, label.cytoband = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:differentCoordinates # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # plotIdiogram(“1”,构建=“hg19 cex = 0.8,标签。cytoband = FALSE, ylim = c (0, 1), cytoband.ycoords = c(0.1, 0.3)) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:allchrom # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(oligoClasses) sl < - getSequenceLengths (“hg19”) [c(粘贴(“空空”,但接着,9 = " "),“chrX”、“chrY”)] ybottom < - seq (0, 1, length.out =长度(sl)) - 0.01顶端y < - seq (0, 1, length.out =长度(sl)) + 0.01(我在seq_along (sl)){空空的< -名字(sl)[我]如果(i = = 1) {plotIdiogram(“1”,构建=“hg19 cex = 0.8,标签。cytoband = FALSE, ylim = c (-0.05, 1.05), cytoband。ycoords = c (ybottom[1],顶端y [1]), xlim = c(0,马克斯(sl)))}如果(> 1){plotIdiogram(名字(sl)[我],建立=“hg19 cex = 0.8,标签。cytoband cytoband = FALSE。ycoords = c (ybottom[我],顶端y[我]),新= FALSE)}}轴(1在=漂亮(c(0,马克斯(sl)), n = 10),标签=漂亮(c(0,马克斯(sl)), n = 10) / 1 e6, cex.axis = 0.8)多行文字(”位置(Mb)”1 = 2行)票面(las = 1)轴(2 0.01 = ybottom +名字(sl), cex.axis = 0.6) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:PlottingIdiograms。Rnw: 85 - 86 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # toLatex (sessionInfo ())