Re: ... ShowLegend problems ...
- To: mathgroup at yoda.physics.unc.edu
- Subject: Re: ... ShowLegend problems ...
- From: fred at mi.el.utwente.nl (Fred Hugen - UT)
- Date: Wed, 9 Mar 94 10:50:33 +0100
> From mathgroup-adm at yoda.physics.unc.edu Fri Feb 25 09:59:48 1994
> Date: 21 Feb 94 16:15 -0200
> From: Antonio Jose Araujo <aaraujo at porto.inescn.pt>
> To: mathgroup at yoda.physics.unc.edu
> Subject: ... ShowLegend problems ...
> Content-Length: 310
>
> Hi !
>
> I am doing a graphic with MultipleListPlot and when I try to put a legend to
> the multiple curves that it contains with ShowLegend from <<Graphics'Legend' it
> fails. How can I use ShowLegend correctly?
>
> Thanks in advance.
>
> ps : The problem also exists with BarChart function. Any sugestions are welcome.
>
>
Here is an example how to incorporate a legend into a MultipleListPlot. Its a
pity that WRI does not support plots like MultipleListPlot with the standard
options for Plot such as Legend. Adding a Legend with ShowLegend takes a
considerable amount of time!
PS: I use Mma 2.2.1 / Windows 3.1
Fred Hugen
----------
X-Sun-Data-Type: default
X-Sun-Data-Description: default
X-Sun-Data-Name: mail.txt
X-Sun-Content-Lines: 9
<<Graphics`MultipleListPlot`
<<Graphics`Colors`
<<Graphics`Legend`
listData = Table[ x^2 - 6y x +1,{y,0,4},{x,-5,5}];
lineColors = {{Red},{Blue},{Green},{Orange},{Yellow}};
plotje = Apply[MultipleListPlot[##,PlotJoined->True,LineStyles->lineColors] &,listData];
ShowLegend[plotje,{{{Graphics[{Red,Line[{{0,0.5},{1,0.5}}]}],"y=0"},{Blue,"y=1"}},LegendShadow->{0,0}}]; <<Graphics`MultipleListPlot`