Just use Show
instead of Overlay
:
Show[
bg,
ListPlot[
MapThread[
Callout[#1,#2,"CalloutStyle"->Directive[Thick,Red]]&,
plain
],
PlotRange->{{-180,180},{-90,90}},
Axes->None,
PlotRangePadding->Scaled[0]
]
]