RE: [Mathematica 6] How to add legend to ListLinePlot?

*To*: mathgroup at smc.vnet.net*Subject*: [mg76600] RE: [mg76488] [Mathematica 6] How to add legend to ListLinePlot?*From*: Robert Pigeon <robert.pigeon at videotron.ca>*Date*: Thu, 24 May 2007 06:16:42 -0400 (EDT)*References*: <200705230915.FAA23593@smc.vnet.net>

Hello Nasser, I had the same problem with the Legend package, but thanks to some people here in Mathgroup I could make some sense out of it. So, here is an example of a simple ListLinePlot with a Legend, nothing sophisticated but just a start. I think it is the kind of example that should be in the documentation, but, that is another story! By the way, it works with other plot command. ___________________________________________________________ Needs["PlotLegends`"] a = Table[{i, i^2}, {i, 1, 20}]; b = Table[{i, i^3}, {i, 1, 20}]; ShowLegend[ ListLinePlot[{a, b}, PlotStyle -> {Directive[Red], Directive[Blue, Dashed]}, PlotLabel -> "Test", Frame -> True, FrameLabel -> {{fonction, func}, {x,(*nothing on top*)}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> {Directive[Black], Directive[Green, Dashed]}, Background -> LightYellow, ImageSize -> 600, BaseStyle -> {FontSize -> 12, FontWeight -> "Bold"}], (*Here is the legend *) { {{Graphics[{Red, Line[{{0, 0}, {5, 0}}]}], "Line a"}, {Graphics[{Directive[Blue, Dashed], Line[{{0, 0}, {5, 0}}]}], "Line b"}}, LegendSize -> {0.7, 0.2}, LegendPosition -> {0, -0.85}, BaseStyle -> {FontSize -> 12, FontWeight -> "Bold"} } ] __________________________________________________________________ As I said, it is a basic example and it is laid out without trying to get the best! Hope this help. Robert Robert Pigeon -----Original Message----- From: Nasser Abbasi [mailto:nma at 12000.org] Sent: May-23-07 05:15 To: mathgroup at smc.vnet.net Subject: [mg76600] [mg76488] [Mathematica 6] How to add legend to ListLinePlot? Hello; I am drawing few lists in one plot using ListLinePlot. PlotLegend does not work with ListLinePlot. Any idea how can one add legend to listLinePlot? Needs["PlotLegends`"]; a = Table[RandomReal[], {10}]; b = Table[RandomReal[], {10}]; ListLinePlot[{a, b}] (*OK*) ListLinePlot[{a, b}, PlotLegend -> {"a", "b"}] (*This is what I'd like to do*) thanks Nasser

**References**:**[Mathematica 6] How to add legend to ListLinePlot?***From:*"Nasser Abbasi" <nma@12000.org>