Re: Using legend with FilledPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg74435] Re: Using legend with FilledPlot
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Wed, 21 Mar 2007 02:50:43 -0500 (EST)
- Organization: The Open University, Milton Keynes, UK
- References: <etnju8$fuv$1@smc.vnet.net>
Michelasso wrote:
> Ok, I have tried to answer to myself to the previous questions I made,
> and I have almost managed to get what I want, except for one thing: I
> cannot put legend into grpahics I draw with FilledPlot funtion.
> For example this works:
>
> Plot[{Sin[x], Cos[x]}, {x, -3, 3}, PlotStyle -> {Hue[0.4], Hue[0.6]},
> PlotLegend -> {"a", "b"}, LegendTextSpace -> 10,
> LegendShadow -> None, LegendPosition -> {0.2, -0.3},
> LegendSize -> {0.9, 0.2}]
>
> but if I replace Plot with FilledPlot I don't have anymore a legend.
That normal since the option PlotLegend is available for the functions
Plot and MultipleListPlot *only*. However, you can use ShowLegend (also
available from the package Legend) or use a combination of Text and Line
primitives.
> Is there any way to obtain a legend with FilledPlot?
You can use the option Epilog with Text and Line. For instance,
In[1]:=
<< "Graphics`FilledPlot`";
In[2]:=
FilledPlot[{Sin[x], Cos[x]}, {x, -3, 3}, PlotStyle -> {Hue[0.4],
Hue[0.6]}, Epilog -> {Hue[0.4], Line[{{0.6, -0.3}, {1., -0.3}}], Black,
Text[a, {1.2, -0.3}, {-1, 0}], Hue[0.6], Line[{{0.6, -0.5}, {1.,-0.5}}],
Black, Text[b, {1.2, -0.5}, {-1, 0}]}];
[...graphic deleted...]
Regards,
Jean-Marc