I am using AnnotationTrack to display gene/ORF of a bacteria genome. To show gene names in track, id was assigned. Since some of the gene is very small and only has a very narrow place to display id, gene names overlapped one another and I could not seprated them. 

Is there a smart way to display gene names in this situation?

atrack <- AnnotationTrack(ORF,  name  =  "ORF", shape = "arrow",
                            id = ORF$gene,  featureAnnotation  =  "id",
                            showFeatureId = TRUE,
                            fontcolor.feature  =  "black")

Thank you in advance.

I know two years since the question is asked, but in case somebody else has the same trouble:

Have you tried to decrease the font size? 

displayPars(atrack) <- list(fontsize.group = 15)

How about zooming in, in a shorter region and post processing it?

Good luck!