アノテーションを追加する

次のプロットを見てください。

これは前の演習で作成したものととてもよく似ています。データに加えて、遺伝子アノテーションを示す Genes というトラックが表示されています。 このトラックをプロットに追加するには、次のコード断片をどの順番で実行しますか？

Fragment 1

plotTracks(list(ideogram, cover_track,peak_track, tx, 
           GenomeAxisTrack()), chromosome="chr20", 
           from = start_pos, to=end_pos)

Fragment 2

tx <- AnnotationTrack(TxDb.Hsapiens.UCSC.hg19.knownGene, name="Genes")

Fragment 3

tx <- GeneRegionTrack(TxDb.Hsapiens.UCSC.hg19.knownGene, name="Genes")

Fragment 4

library(TxDb.Hsapiens.UCSC.hg19.knownGene)