Does Callout work in Graphics?

Questions
1

Do Callouts work in Graphics? If so, how would I have the values of centers appear below the ellipses in this example?

centers = {0, 28.7, 33.8, 48.0, 55.4, 71.9};
Graphics[
 Join[
  ({Black, Circle[{#, 0}, {0.1, 0.4}]} & /@ centers),
  {{Red, Inset["|", {75, 0}]}}
  ],
 ImageSize -> {640, Automatic}
 ]

calloutellipses.png

2

I think they don’t work in Graphics directly, but this works:

ListPlot[Callout[{#, 0}, #] & /@ centers, Axes -> False, 
 AspectRatio -> 1/6]

callouts.png

3

Thanks, but I must use Graphics as there are other items in this visualization.

4

Well, we can extract the graphic primitives from the ListPlot output, even though it feels a bit hackish:

Graphics[
  Join[({Black, Circle[{#, 0}, {0.1, 0.4}]} & /@ centers),
       {{Red, Inset["|", {75, 0}]}}], 
  ImageSize -> {640, Automatic},
  Prolog -> 
    ListPlot[Callout[{#, 0}, #, Below] & /@ centers, PlotMarkers -> ""][[1]],
  ImagePadding -> 10
]

callouts2.png

5

That’s a creative solution!

6

Here I used Inset to create callouts. The application is sequence coverage of gene locations in shotgun whole genome scans. Notice some chromosomes contain gaps, resulting in non-contiguous chromosome assembly.

Horaishispanningsets.png
Horaishispanningsets.png1024×1401 63.9 KB