World Map Projections

Manipulate[Show[CountryData[cy,{"Shape",{p,If[p==="LambertConic",{((5 (90+c[[1]]))/6)-90,c[[2]]},c]}}],ImageSize->{500,350}],{{p,"Robinson","projection"},{"Albers","Bonne",{"CylindricalEqualArea",0},{"CylindricalEquidistant",0},"EckertIV","EckertVI","Equirectangular","LambertAzimuthal","LambertConic","LambertCylindrical","Mercator","MillerCylindrical","Mollweide","Orthographic","Polyconic","Robinson","Sinusoidal","VanDerGrinten","WinkelTripel"}},
{{c,{0,0},"center"},{-90,-90},{90,90},ImageSize->Small},{{cy,"World","country"},Join[{"World",Delimiter},CountryData[]]},Initialization:>CountryData[All,"Preload"],SynchronousInitialization->False]

See how the world, as well as individual countries, are rendered with different map projections. Each projection corresponds to a certain choice of how to "unwrap" the approximately spherical Earth onto a plane. The "center" of the projection determines what point on the Earth will be drawn in the center of the image.

Contributed by: Stephen Wolfram

Based on work by: Yu-Sung Chang