## ---- echo = false，结果=“隐藏”，警告= false -----------------------------------------------------------------------------------------------------------------------------------custresspackagestArtupMessages（{library（trackViewer）library（rtracklayer）库（txdb.hsapiens.ucsc.hg19.hg19.homninggene）library（org.hs.eg.db）库（org.hs.eg.db）library（variantannotation）（variantAnnotation）警告= false，消息= false）## ----图Width = 4.5，图。--------------------------库（TrackViewer）库（txdb.hsapiens.ucsc.hg19.hg19.nowngene）库（org.hs.eg.db）库（org.hs.eg.db）库（rtracklayer）methy < - import（system.file（“ extdata”，“ methy.bed”，package =“ trackViewer”），“ bed”）gr < - granges（“ chr22”，iranges（50968014，5097014，50970514，names =”tymp“））trs <-GeneModelfromtxDB（txdb.hsapiens.ucsc.hg19.nowngene，org.hs.eg.db，gr = gr）特征<-c（range [[1] $ dat）trs [[5] $ dat））名称（功能）<-c（trs [[1] $ name，trs [[5] $ name）功能$ fill <-c（“ lightblue”，“ mistyrose”）特征$ height <-c（.02，.04）dandelion.plot（methy，特征，ranges = gr，type =“ pin”）## -----图。igh = 3 ----------------------------------------------------------------------------------methy $ color <-3 methy $ border < - “灰色” ##得分信息，得分必须是[0，1] m <-max（methy $得分）methy $得分<-Methy $得分中的数字/m dandelion.plot（methy，特征，范围= gr，type =“ fan”）## ----图。---------------------------------- methy$color <- rep(list(c(3, 5))，长度（methy））methy $ score2 < - （最大（methy $得分） - methy $得分）/m传奇< - list（list = c（“ s1”，“ s2”），fill = c（3，5））））dandelion.plot（methy，特征，ranges = gr，type =“ pie”，legend = ligends）## -----图。--------------------------------------------------------- ##少量蒲公英蒲公英。，ranges = gr，type =“ circle”，maxgaps = 1/10）## -----图= 4.5，图。----------------------------------------- ## More dandelions dandelion.plot(methy, features, ranges=gr, type="circle", maxgaps=1/100) ## ----fig.width=4,fig.height=4------------------------------------------------- maxgaps <- tile(gr, n = 10)[[1]] dandelion.plot(methy, features, ranges=gr, type="circle", maxgaps=maxgaps) ## ----fig.width=4.5,fig.height=3----------------------------------------------- dandelion.plot(methy, features, ranges=gr, type="pie", maxgaps=1/100, yaxis = TRUE, heightMethod = mean, ylab='mean of methy scores') ## ----fig.width=4.5,fig.height=3----------------------------------------------- yaxis = c(0, 0.5, 1) dandelion.plot(methy, features, ranges=gr, type="pie", maxgaps=1/100, yaxis = yaxis, heightMethod = mean, ylab='mean of methy scores') ## ----sessionInfo, results='asis'---------------------------------------------- sessionInfo()