I created a ResourceObject for the Data Repository but when I tried to submit I got ResourceSubmit::invcon: The provided content could not be used.
This is what I deployed on my computer as a local object.
In[]:=
ResourceObject[LocalObject["file:///C:/Users/Peter/AppData/Roaming/Wolfram/Objects/DeployedResources/Data/Administrative-Regions-of-France-and-bordering-data"]]
Out[]=
ResourceObject
This is where I deployed the data to my cloud account privately.
In[]:=
Out[]=
ResourceObject
This is where I published the data to the cloud publicly.
In[]:=
Out[]=
ResourceObject
I also deployed the data for this local session.
ResourceObject
In[]:=
ResourceData[ResourceObject[CloudObject["https://www.wolframcloud.com/obj/burbery1/DeployedResources/Data/Administrative-Regions-of-France-and-bordering-data"]]]
Out[]=
|
Make a graph of bordering administrative divisions:
In[]:=
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[]=
Find a vertex coloring for the graph:
In[]:=
coloring=FindVertexColoring[graph,ColorData[106,"ColorList"]]
Out[]=
{,,,,,,,,,,,,}
Color the vertices with the ResourceFunction ColorGraphVertices:
In[]:=
ColorGraphVertices[graph,VertexSize->Large,ImageSize->Large]
Out[]=
Make a map:
In[]:=
GeoRegionValuePlot[VertexList[graph]->coloring,GeoBackground->"VectorBusiness",ImageSize->Full,GeoLabels->True]
Out[]=
I was able to get the labels to work. For some reason the labels didn’t work with the other maps. I would love to hear your thoughts on how to get the labels to work on the other maps.
Break the graph into the mainland component and the island of Corsica:
Compare with the Entity framework:
I would also like to do Russia and China.