New in Wolfram Mathematica 6: Extended Graphics Language  previous | next 
Place Any Graphic Anywhere in Any Other
Mathematica 6 allows you to place any graphic programmatically anywhere inside any other graphic.
In[1]:=

Click for copyable input
Graphics[Inset[

    Graphics[{Opacity[.5], Hue[RandomReal[]], EdgeForm[Black], 

      CountryData[#, "Polygon"]}], {Log[10, 

      CountryData[#, "Population"]], Log[10, CountryData[#, "GDP"]]}, 

    Center, 0.2] & /@ DeleteCases[CountryData["UN"], "VaticanCity"], 

 Frame -> True, PlotRangePadding -> .2]
Out[1]=