In[]:=
EntityClassWithNoMissingProperties//ClearAll​​EntityClassWithNoMissingProperties[class_,property_]:=FilteredEntityClass[class,EntityFunction[element,And@@(!MissingQ[#]&/@EntityValue[element,property])]]
In[]:=
BorderingMap//ClearAll​​BorderingMap[class_,property_,color_:ColorData[106,"ColorList"],options:OptionsPattern[GeoRegionValuePlot]]:=Block[{classfiltered,polygons,entities},classfiltered=EntityClassWithNoMissingProperties[class,{"Polygon",property}];GeoRegionValuePlot[Thread[EntityValue[classfiltered,"Polygon"]->FindVertexColoring[RelationGraph[MemberQ[#1][#2[property]]&,EntityValue[classfiltered,"Entities"]],color]]]]/;MemberQ[property][EntityValue[class,"Properties"]]∨MemberQ[property][CanonicalName/@EntityValue[class,"Properties"]]
Make a map of countries in Africa following the four color theorem rules:
In[]:=
BorderingMap
Africa
COUNTRIES
,"BorderingCountries"
Out[]=
Make a map of the contiguous US states and the district of Columbia:
In[]:=
AlaskaAndHawaiiClass=FilteredEntityClass"AdministrativeDivision",EntityFunctionstate,EntityValuestate,
name
=="Alaska, United States"||EntityValuestate,
name
=="Hawaii, United States";
AllUSStatesWithDC=
all US states with District of Columbia
ADMINISTRATIVE DIVISIONS
;
ContiguousUSStatesWithDCClass=ComplementedEntityClass[AllUSStatesWithDC,AlaskaAndHawaiiClass];
In[]:=
BorderingMap[ContiguousUSStatesWithDCClass,"BorderingStates"]
Out[]=
This graph is also available as
In[]:=
GraphData["ContiguousUSAGraph"]
Out[]=
Make a map of the counties of New York:
In[]:=
BorderingMap
US counties in New York
ADMINISTRATIVE DIVISIONS
,"BorderingCounties"
Out[]=

Continents

Make a map of Europe:
In[]:=
BorderingMap
Europe
COUNTRIES
,"BorderingCountries"
Out[]=
Make a map of Asia:
In[]:=
BorderingMap
Asia
COUNTRIES
,"BorderingCountries"
Out[]=
Make a map of North America:
In[]:=
BorderingMap
North America
COUNTRIES
,"BorderingCountries"
Out[]=
Make a map of South America: