Wolfram Technology Guide: Fully Automated Graph Layout  previous | next 
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]:=

Click for copyable input
GraphPlot[

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

   CountryData["Europe"]], VertexLabeling -> True]
Out[1]=