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]