Re: Using legend with FilledPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg74424] Re: Using legend with FilledPlot*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Wed, 21 Mar 2007 02:44:42 -0500 (EST)*References*: <etnju8$fuv$1@smc.vnet.net>

=CF/=C7 Michelasso =DD=E3=F1=E1=F8=E5: > 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. > Is there any way to obtain a legend with FilledPlot? Hello. (*load the package*) << Graphics`FilledPlot` (*change one default setting*) $TextStyle = {FontFamily -> "Times"}; (*your filled plot; plot does not display alone because of Block[[{$DisplayFunction = Identity}, ...] setting*) g1 = Block[{$DisplayFunction = Identity}, FilledPlot[{Sin[x], Cos[x]}, {x, -Pi, Pi}, PlotStyle -> {Red, Blue}, Axes -> False, Frame -> {True, True, False, False}]]; (*"construct" your legend*) g2 = {Text[TraditionalForm[Sin[x]], {-2.7, 0.25}], Text[TraditionalForm[Cos[x]], {-2.7, 0.45}]}; g3 = {{Red, Line[{{-2.3, 0.25}, {-1.8, 0.25}}]}, {Blue, Line[{{-2.3, 0=2E45}, {-1.8, 0.45}}]}}; (*final graph*) Show[g1, Graphics[{g2, g3}], ImageSize -> 400, FrameLabel -> TraditionalForm /@ {x, f[x]}, PlotLabel -> StyleForm["Michelasso's filled plot", FontSize -> 14], FrameTicks -> {Range[-Pi, Pi, Pi/2], Range[-1, 1, 0.5]}]; (*restore default settings*) $TextStyle = {}; Regards Dimitris