New in Wolfram Mathematica 6: Load-on-Demand Curated Data ◄ previous | next ►
Visualize Links between Countries
Mathematica 6 allows unprecedented quantitative exploration; here is a graph of trading partners for countries in South America.
In[1]:=

Click for copyable input
GraphPlot[

 Flatten[Thread[# -> CountryData[#, "ImportPartners"]] & /@ 

   CountryData["SouthAmerica"]], VertexLabeling -> True, 

 DirectedEdges -> True]
Out[1]=