PoisonAlien / trackplot

Generate IGV style locus tracks from bigWig files in R
138 stars 16 forks source link

did not show transcription picture #12

Closed houruiyan closed 1 year ago

houruiyan commented 2 years ago

Hello, Dr. I have another question. This is my code. I can make sure there is multiple isoforms. However, it does not display. Could you help me? Thank you!

bigWigs <-list.files(path = './test/',pattern = '\\.bw$')
track_data = track_extract(bigWigs = bigWigs, loci = "5:68,213,737-68,303,821")

#track_plot(summary_list = track_data, draw_gene_track = TRUE, build = "hg38")

markregions = data.frame(
  chr = c("5", "5"),
  start = c(68215361, 68279956),
  end = c(68215862, 68280457),
  name = c("P:r1@PIK3R1", "P:r2@PIK3R1")
)

#png("test1.png", 640, 780)

pdf(file='MYTEST.pdf', height=11,
    width=5, family='GB1',onefile = T)

track_plot(
  summary_list = track_data,
  draw_gene_track = TRUE,
  #query_ucsc = TRUE,
  #show_ideogram = TRUE,
  y_max = 7347,
  build = "hg38",
  regions = markregions,
  track_names_pos =1,
  #genename="P",
  #txname="",
  boxcol = "#FFA319FF",
  col = "#1B1919FF",
  gene_track_height=2,
  scale_track_height=1
)
dev.off()

The picture look like this. image

PoisonAlien commented 2 years ago

Hi, You can set collapse_tx = FALSE