MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Legends for Plot's (solution)

  • To: mathgroup at
  • Subject: [mg102309] Legends for Plot's (solution)
  • From: dr DanW <dmaxwarren at>
  • 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} ] ]

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.


  • Prev by Date: Re: Noob Question re Setting Default Fonts
  • Next by Date: Finding positive / non-complex solutions (newbie)
  • Previous by thread: Re: Mathematica syntax in W|A
  • Next by thread: Re: Legends for Plot's (solution)