Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 NoncontiguousCartogram

Source Notebook

Create a noncontiguous cartogram

Contributed by: Björn Zimmermann

ResourceFunction["NoncontiguousCartogram"][loc→val]

displays location loc with area scaled according to val.

ResourceFunction["NoncontiguousCartogram"][{loc1→val1,loc2→val2,…}]

displays the loci with areas scaled according to the vali.

Details and Options

ResourceFunction["NoncontiguousCartogram"] returns Graphics.
The locations loc can be 2D shapes, in which case they are scaled around their individual centroids.
The locations loc can be coordinate pairs, a GeoPosition, or Entity or EntityClass objects with geographic coordinates, such as cities or countries.
Numerical values associated to locations can be given either explicitly or, for Entity or EntityClass locations, given as a Property.
The values are used to derive a suitable overall scale.
The original shapes are scaled according to val based on area, while maintaining both their shape and center. Topology is not preserved.
Location value pairs in Association are supported.

Examples

Basic Examples (2) 

Make a noncontiguous cartogram with squares:

In[1]:=
ResourceFunction["NoncontiguousCartogram"][{ Polygon[{{-10, 0}, {-10, 10}, {0, 10}, {0, 0}}] -> 1, Polygon[{{0, -10}, {0, 0}, {10, 0}, {10, -10}}] -> 0.5, Polygon[{{0, 0}, {0, 10}, {10, 10}, {10, 0}}] -> 0.75, Polygon[{{-10, -10}, {-10, 0}, {0, 0}, {0, -10}}] -> 0.25}]
Out[1]=
Image

Create a noncontiguous cartogram of the countries of the East African Community (EAC) by their Gross Domestic Product (GDP):

In[2]:=
ResourceFunction["NoncontiguousCartogram"][ EntityClass["Country", "EastAfricanCommunity"] -> "GDP"]
Out[2]=
Image

Scope (4) 

Create a noncontiguous cartogram of US states based on the fraction of their population not born in the US:

In[3]:=
USstates = Complement[ EntityList[ Entity["AdministrativeDivision", {EntityProperty[ "AdministrativeDivision", "ParentRegion"] -> Entity["Country", "UnitedStates"]}]], {Entity[ "AdministrativeDivision", {"Alaska", "UnitedStates"}], Entity["AdministrativeDivision", {"Hawaii", "UnitedStates"}]}];

Use automatic arrangement:

In[4]:=
ResourceFunction["NoncontiguousCartogram"][ USstates -> EntityProperty["AdministrativeDivision", "ForeignBornFraction"]]
Out[4]=
Image

Use a List of rules of GeoPosition polygons with their respective values:

In[5]:=
ResourceFunction["NoncontiguousCartogram"][ Thread[Rule[EntityValue[USstates, "Polygon"], EntityValue[USstates, EntityProperty["AdministrativeDivision", "ForeignBornFraction"]]]]]
Out[5]=
Image

Use an Association of rules of GeoPosition polygons with their respective values:

In[6]:=
ResourceFunction["NoncontiguousCartogram"][ Association @@ Thread[Rule[EntityValue[USstates, "Polygon"], EntityValue[USstates, EntityProperty["AdministrativeDivision", "ForeignBornFraction"]]]]]
Out[6]=
Image

Version History

  • 1.0.0 – 23 September 2020

Related Resources

License Information