Data Resource

Administrative Regions of France and bordering data

This repository is to fill gaps in other countries administrative regions about what borders what

The entity framework does not have this yet.
For more information, see the Wolfram Community Post The Four Color Theorem and Applications to Maps, Graphs and Vertex Coloring

Examples

Basic Examples (6) 

In[1]:=
ResourceData[
ResourceObject[
CloudObject[ "https://www.wolframcloud.com/obj/burbery1/DeployedResources/Data/Administrative-Regions-of-France-and-bordering-data"]]]
Out[1]=

Make a graph of bordering administrative divisions:

In[2]:=
graph = RelationGraph[MemberQ[#1][ResourceData[
ResourceObject[
CloudObject[ "https://www.wolframcloud.com/obj/burbery1/DeployedResources/Data/Administrative-Regions-of-France-and-bordering-data"]]][#2, "bordering-administrative-divisions"]] &, Normal@Keys[ResourceData[
ResourceObject[
CloudObject[ "https://www.wolframcloud.com/obj/burbery1/DeployedResources/Data/Administrative-Regions-of-France-and-bordering-data"]]][All, First]], VertexLabels -> "Name"]
Out[2]=

Find a vertex coloring for the graph:

In[3]:=
coloring = FindVertexColoring[graph, ColorData[106, "ColorList"]]
Out[3]=

Color the vertices with the ResourceFunction ColorGraphVertices:

In[4]:=
ColorGraphVertices[graph, VertexSize -> Large, ImageSize -> Large]
Out[4]=

Make a map:

In[5]:=
GeoRegionValuePlot[VertexList[graph] -> coloring, GeoBackground -> "VectorBusiness", ImageSize -> Full, GeoLabels -> True]
Out[5]=

Break the graph into the mainland component and the island of Corsica:

In[6]:=
WeaklyConnectedGraphComponents[graph, VertexLabels -> "Name"]
Out[6]=

Compare with the Entity framework:

In[7]:=
EntityValue[ Entity["AdministrativeDivision", {"GrandEst", "France"}], "BorderingStates"]
Out[7]=
In[8]:=
EntityValue[ Entity["AdministrativeDivision", {"GrandEst", "France"}], "BorderingCounties"]
Out[8]=

Source Metadata

Publisher Information