Visualize Links between Countries
Mathematica allows unprecedented quantitative exploration; here is a graph of trading partners for countries in South America.
In[1]:=  |  GraphPlot[ Flatten[Thread[# -> CountryData[#, "ImportPartners"]] & /@ CountryData["SouthAmerica"]], VertexLabeling -> True, DirectedEdges -> True] |
Out[1]=  |  |