"Equirectangular" projection only moves the map along longitude direction. It is the same with "CylindricalEquidistant" and "Sinusoidal". For an example of a projection that centers, try "Albers":
Graphics[CountryData[#, {"SchematicPolygon", {"Albers", CountryData["Greenland", "CenterCoordinates"]}}]&/@
CountryData[], Frame -> True, Axes -> True]
Using this list of projections,
{"Albers", "Bonne", "CylindricalEqualArea", "CylindricalEquidistant", "EckertIV", "EckertVI", "Equirectangular",
"LambertAzimuthal", "LambertConic", "LambertCylindrical", "Mercator", "MillerCylindrical", "Mollweide", "Orthographic",
"Polyconic", "Robinson", "Sinusoidal", "Stereographic", "VanDerGrinten", "WinkelTripel"}
you can explore them to find one that does something reasonable.
Manipulate[Graphics[
CountryData[#, {"SchematicPolygon", {proj,CountryData[country, "CenterCoordinates"]}}] & /@ CountryData[],
Frame -> True, Axes -> True],
{proj, {"Albers", "Bonne", "CylindricalEqualArea",
"CylindricalEquidistant", "EckertIV", "EckertVI",
"Equirectangular", "LambertAzimuthal", "LambertConic",
"LambertCylindrical", "Mercator", "MillerCylindrical", "Mollweide",
"Orthographic", "Polyconic", "Robinson", "Sinusoidal",
"Stereographic", "VanDerGrinten", "WinkelTripel"}},
{country, CountryData[]}]
Tooltips with data plots can be included in your graphics. Keep in mind, if you choose a projection that is something other than the default {"Equirectangular", {0,0}} then all of your decorations will also have to use the same projection. The alignment will be much simpler, sticking with one basic map rather than using unusual projections.
Also, keep in mind the map coordinates convention {lat, long} gets reversed when used as coordinates for graphics. For example the center of Greenland will be located at
Reverse@CountryData["Greenland", "CenterCoordinates"]
in order to get it over top of the Polygon for Greenland.