Create Social Network Graphics
Mathematica makes it easy to create informative graphics that capture constructs such as social networks. This shows countries in Europe whose territories share borders.
In[1]:=  |  GraphPlot[ Flatten[Thread[# -> CountryData[#, "BorderingCountries"]] & /@ CountryData["Europe"]], VertexLabeling -> True] |
Out[1]=  |  |