3
$\begingroup$

Possible Duplicate:
Creating legends for plots with multiple lines?

Why does the legend of this plot have 5 lines (in mathematica 8, at least) instead of 3?

Needs["PlotLegends`"]
ParametricPlot[
 Evaluate[Table[{k Cos[x], k*Sin[x]}, {k, 1, 3}]], {x, 0, 2 \[Pi]}, 
 PlotStyle -> {Directive[Purple, Thick], 
   Directive[Thick, Orange, Dashing[{.03}]]}, 
 PlotLegend -> Range[1, 3], LegendPosition -> {.5, -.8}]

Mathematica graphics

How could I plot the legend correctly?

--EDIT--

This is not an answer, but it may come handy to someone with the same problem:

Creating legends for plots with multiple lines?

replacement of PlotLegend works.

$\endgroup$

marked as duplicate by rm -rf Dec 20 '12 at 21:57

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • 1
    $\begingroup$ This seems to be another example of the many problems of the much-vilified pre-9 PlotLegends package. $\endgroup$ – Sjoerd C. de Vries Dec 20 '12 at 21:56

Browse other questions tagged or ask your own question.