New in Wolfram Mathematica 7: Automatic Histogram Generation ◄ previous | next ►
Add Legends to Histograms
In[1]:=

Click for copyable input
Histogram[

 Table[StringLength /@ 

   DictionaryLookup[{l, All}], {l, {"French", "English", 

    "German"}}], {1, 25, 1}, PlotRange -> {{0, 25}, All}, 

 ChartLegends -> Placed[{"English", "French", "German"}, Bottom], 

 PlotLabel -> "Word lengths by language", ImageSize -> Large]
Out[1]=