Wolfram Technology Guide: Load-on-Demand Curated Data  previous | next 
Visualize Links between Countries
Mathematica 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]=