New in Wolfram Mathematica 6: Integrated Graphics Editing & Drawing  previous | next 
Interactively Add Annotations to Plots
Mathematica 6 lets you interactively add arbitrary annotations to graphics.
In[1]:=

Click for copyable input
ListLinePlot[ElementData[#, "MeltingPoint"] & /@ ElementData[], 

 Filling -> Axis]