
Re: PlotLegend and ListPlot
Posted:
Jun 27, 2007 5:53 AM


You're right  it would have just been so easy to make ListPlot have the PlotLegend option. The extra work is that now one has to define the series of PlotStyle's instead of use the convenient defaults. Thanks Gerry F.
Stern wrote: > Maybe I'm missing the problem, but why not do it like this? > > In[1]:= Needs["PlotLegends`"] > > In[2]:= a = ListPlot[Table[{x, Sin[x]}, {x, 1, 5}], Mesh > All, > Joined > True, PlotStyle > {Red}]; (* example list 1 *) > > In[3]:= b = ListPlot[Table[{x, x^Sin[x]}, {x, 1, 5}], Mesh > All, > Joined > True, PlotStyle > {Blue}]; (* example list 2 *) > > In[4]:= l = {{Graphics[{Red, Thick, Line[{{0.05, .7}, {0.25, .7}}]}], > "Sin[x]"}, {Graphics[{Blue, Thick, > Line[{{0.05, .7}, {0.25, .7}}]}], "x^Sin[x]"}}; (* example legend *) > > In[5]:= ShowLegend[ > Show[a, b, PlotRange > All], {legndB, LegendPosition > {.2, .3}, > LegendSize > {.62, .3}}] (* show them all together *) > > Normally, I would do this in a single line rather than five, but I've > broken it apart here for the sake of readability. > > Hope that helps. > > stern > > > > > On 6/23/07, Gerry Flanagan <flanagan@materialssciences.com> wrote: >> It appears that PlotLegend doesn't work with ListPlot. MultipleListPlot >> is now obsolete, so how do I put legends on list plots? Building my own >> equivalent to MultipleListPlot is going to be a pain. Seems like a >> simple thing that Wolfram just missed. >> Gerry Flanagan >> >> >

