# #——包括= TRUE,呼应= FALSE,消息= FALSE --------------------------------- knitr: opts_chunk美元集(呼应= TRUE,崩溃= TRUE,缓存= FALSE) # str (knitr: opts_chunk获得美元 ()) ## ---- fig.width = 5.5, fig.height = 3,。宽度= " 85 %"---------------------------- 要求(multicrispr) bsgenome < - BSgenome.Hsapiens.UCSC.hg38: BSgenome.Hsapiens.UCSC。hg38 gr <- char_to_granges(c(PRNP = 'chr20:4699600:+'， # snp HBB = 'chr11:5227002:-'， # snp HEXA = 'chr15:72346580-72346583:-'， # del CFTR = 'chr7:117559593-117559595:+')，# ins bsgenome = bsgenome) plot_interval (gr, facet_var = c('targetname'，'seqnames')) ## ----图.width=5.5，图.height=3, out。宽度= " 85 %"---------------------------- ext < -扩展(gr,开始= -10,结束= + 10 = TRUE ) ## ---- fig.width = 5.5, fig.height = 3,。宽度= " 85 %"---------------------------- < - up_flank (gr -22, 1 = TRUE, facet_var = c(“targetname”、“seqnames ')) ## ---- fig.width = 5.5, fig.height = 3,。宽度= " 85 %"---------------------------- dn < down_flank (gr, + 1, + 22日= TRUE ) ## ---- fig.width = 5.5, fig.height = 3,。宽度= " 85 %"---------------------------- 双< - double_flank (gr -10, 1 + 1, + 20,情节= TRUE)