Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: PlotLegend and ListPlot
Replies: 4   Last Post: Jun 27, 2007 5:53 AM

 Messages: [ Previous | Next ]
 Gerry Flanagan Posts: 35 Registered: 1/29/05
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@materials-sciences.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
>>
>>

>

Date Subject Author
6/26/07 Stern
6/26/07 Stern
6/27/07 Gerry Flanagan