Re: using Legend package

*To*: mathgroup at smc.vnet.net*Subject*: [mg65651] Re: [mg65607] using Legend package*From*: "David Annetts" <davidannetts at aapt.net.au>*Date*: Wed, 12 Apr 2006 05:59:59 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Hi Rudy, > I'd like to insert legends in my graphics. > I'm trying to use Legend package for that, but in the help > browser, there are too few indications on the way tu use it > efficiently. > So I wonder if anybody could help me by giving me a link to > a page which explain in detail. Or some detailed examples or anything. > Thank you very much for help. Legend is a straightforward but very tedious package. Perhaps posting some code might inspire better solutions than below. Some examples follow. Feel free to modify them to get a feel as to how they influence the plot. For example, if you change LegendOrientation to Vertical, what do you have to modify to get the legend sitting just to the right of the plot? Example 1 just puts a legend with various options under a plot Needs["Graphics`Legend`"] mystyle={Black, Red, Green, Blue, Cyan}; mylgd = ToString[#]& /@ Range[5]; plt = Plot[Evaluate[BesselJ[#, x]& /@ Range[5]], {x, 0, 10}, PlotStyle\[Rule]mystyle, PlotLegend\[Rule]mylgd, LegendLabel->"Bessel FunctionJ Order", LegendOrientation\[Rule]Horizontal, LegendShadow\[Rule]None, LegendSize\[Rule]{1.25, .25}, LegendPosition\[Rule]{-.5, -.9}]; Example 2 is a little more complicated and uses graphics primitives to create a legend. pltstyle = {Thickness[.02], #}& /@ {Black, Red, Green, Blue, Cyan}; ldgstyle = {Thickness[.2], #}& /@ {Black, Red, Green, Blue, Cyan}; newlegnd = Flatten[{#, Line[{{-1, 0}, {0, 0}}]}]& /@ ldgstyle; newtext = ToString[#]& /@ Range[5]; newlegnd = {Transpose[{Graphics[#]& /@newlegnd, newtext}], LegendLabel\[Rule]StyleForm["Bessel J Ftn Order ", FontWeight->"Bold", FontSlant->"Oblique"], LegendOrientation\[Rule]Horizontal, LegendShadow\[Rule].001, LegendSize\[Rule]{1.5, .25}, LegendPosition\[Rule]{-.7, -.9} }; plt = Plot[Evaluate[BesselJ[#, x]& /@ Range[5]], {x, 0, 10}, PlotStyle\[Rule]newstyle, PlotLabel\[Rule]StyleForm["Example plot w/ Legend", FontFamily\[Rule]"Times", FontWeight\[Rule] "Bold", FontSize\[Rule] 14], DisplayFunction\[Rule]Identity]; ShowLegend[plt, newlegnd]; Regards, Dave.