Legends for Plot's (solution)

*To*: mathgroup at smc.vnet.net*Subject*: [mg102309] Legends for Plot's (solution)*From*: dr DanW <dmaxwarren at gmail.com>*Date*: Wed, 5 Aug 2009 05:43:02 -0400 (EDT)

The PlotLegends` package is badly dated and creates unattractive legends. In Mathematica 7, there is support for very attractive legends, but only for the new Chart types. The mechanism is a little different than in PlotLegends. Legends are implemented by placing the wrapper Legended[] around the data being plotted. The chart function knows to ignore Legended[] except when looking for legend text. On the other hand, Plot[] knows nothing about Legended[], and will not recognize anything in that wrapper as data. Plot[] does recognize the Tooltip[] wrapper, however. Below is code that will create an attractive legend out of any Tooltip'ed curve in a Plot. This will only work on lines, not markers, so if you use it on ListPlot, make sure Joined->True. The main function is LineLegendFromTooltips[]. Usage example: LineLegendFromTooltips[ Plot[{Tooltip[x,"x"], Tooltip[x^2,"x^2"]},{x, 0,3} ] ] -------code------------ LineStylesFromTooltips[plot_Graphics] := Cases[plot, Tooltip[{s__, l_Line}, tt_] :> Grid[{{Graphics[Flatten[{s, Line[{{0, 0}, {1, 0}}]}], ImageSize -> {24, 8}, AspectRatio -> 8/24, ImagePadding -> 0], tt}}], Infinity] LineLegendFromTooltips[plot_Graphics] := Labeled[plot, Style[Column[LineStylesFromTooltips[plot]], "TR", ShowStringCharacters -> False], Right] -----end code------- I sincerely hope this function will be unnecessary in version 8.0. Daniel