Have you seen this example in documentation (below)? You can use scatter plots instead of flags.
flags = EntityValue[EntityClass["Country", "Africa"], {"Entity", "Flag"}];
GeoGraphics[{EdgeForm[Black], {GeoStyling[{"Image", #2}],
Tooltip[Polygon[#1], CommonName[#1]]} & @@@ flags},
GeoBackground -> "StreetMapNoLabels"]
