Group Abstract

Message Boards

WOLFRAM COMMUNITY

1.3K Views

4 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Graphics and Visualization Wolfram Language

Display a legend in a graphic generated with Show[]

Knut Buettner

Knut Buettner, CAS

Posted 8 months ago

Currently, I am using Mathematica 13.2. For this version an Add-on PlotLegends (function ShowLegend[]) still exists, but is marked as obsolete: Needs["PlotLegends`"] General::obspkg: PlotLegends` is now obsolete. The legacy version being loaded may conflict with current functionality. See the Compatibility Guide for updating information. Now, my question: Is there any other functionality to generate a legend within a Show[] construct? Here is an example what I am thinking about (PlotLegends does not work): Show[ListPlot[Table[{f, Sin[2 \[Pi] 0.1 f]}, {f, 0., 200., 1.}], PlotStyle -> Black, PlotMarkers -> {"x", Offset[10]}, PlotLegends -> Automatic], Plot[Sin[2 \[Pi] 0.1 f], {f, 0., 200.}, PlotStyle -> Orange, PlotLegends -> Automatic, PlotRange -> All]] Thank you for your time.

Currently, I am using Mathematica 13.2. For this version an Add-on PlotLegends (function ShowLegend[]) still exists, but is marked as obsolete:

Needs["PlotLegends`"]
General::obspkg: PlotLegends` is now obsolete. The legacy version being loaded may conflict with
 current functionality. See the Compatibility Guide for updating information.

Now, my question: Is there any other functionality to generate a legend within a Show[] construct? Here is an example what I am thinking about (PlotLegends does not work):

Show[ListPlot[Table[{f, Sin[2 \[Pi] 0.1 f]}, {f, 0., 200., 1.}], 
  PlotStyle -> Black, PlotMarkers -> {"x", Offset[10]}, 
  PlotLegends -> Automatic], 
 Plot[Sin[2 \[Pi] 0.1 f], {f, 0., 200.}, PlotStyle -> Orange, 
  PlotLegends -> Automatic, PlotRange -> All]]

Thank you for your time.

POSTED BY: Knut Buettner

4 Replies

Sort By:

Knut Buettner

Knut Buettner, CAS

Posted 8 months ago

Thank you very much for providing this example Hans.

POSTED BY: Knut Buettner

Hans Milton

Posted 8 months ago

Here is one alternative of adding a legend to `Show`: show=Show[ ListPlot[Table[{f,Sin[2 Pi 0.1 f]},{f,0.,200.,1.}],PlotStyle->Black,PlotMarkers->{"x",Offset[10]}], Plot[Sin[2 Pi 0.1 f],{f,0.,200.},PlotStyle->Orange,PlotRange->All] ]; lgnd=Framed@Column@{ PointLegend[{Black},{"Data Points"},LegendMarkers->Text["x"]], LineLegend[{Orange},{"Fitted Function"}] }; Legended[show, lgnd]

Here is one alternative of adding a legend to Show:

show=Show[
  ListPlot[Table[{f,Sin[2 Pi 0.1 f]},{f,0.,200.,1.}],PlotStyle->Black,PlotMarkers->{"x",Offset[10]}],
  Plot[Sin[2 Pi 0.1 f],{f,0.,200.},PlotStyle->Orange,PlotRange->All]
];

lgnd=Framed@Column@{
  PointLegend[{Black},{"Data Points"},LegendMarkers->Text["x"]],
  LineLegend[{Orange},{"Fitted Function"}]
};

Legended[show, lgnd]

enter image description here

POSTED BY: Hans Milton

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 8 months ago

As it seems `PlotLegends` does not work (i.e. does not show) when all curves have the identical Style (here: Orange) or if there is only a single curve. (And this would not make much sense either, IMHO.) This e.g. does work: Show[ListPlot[Table[{f, Sin[2 \[Pi] 0.1 f]}, {f, 0., 200., 1.}], PlotStyle -> Black, PlotMarkers -> {"x", Offset[10]}, PlotLegends -> Automatic], Plot[{Sin[2 \[Pi] 0.1 f], Cos[2 \[Pi] 0.1 f]}, {f, 0., 200.}, PlotStyle -> Automatic, PlotLegends -> "Expressions", PlotRange -> All]]

As it seems PlotLegends does not work (i.e. does not show) when all curves have the identical Style (here: Orange) or if there is only a single curve. (And this would not make much sense either, IMHO.) This e.g. does work:

Show[ListPlot[Table[{f, Sin[2 \[Pi] 0.1 f]}, {f, 0., 200., 1.}], 
  PlotStyle -> Black, PlotMarkers -> {"x", Offset[10]}, 
  PlotLegends -> Automatic], 
 Plot[{Sin[2 \[Pi] 0.1 f], Cos[2 \[Pi] 0.1 f]}, {f, 0., 200.}, 
  PlotStyle -> Automatic, PlotLegends -> "Expressions", 
  PlotRange -> All]]

POSTED BY: Henrik Schachner

Knut Buettner

Knut Buettner, CAS

Posted 8 months ago

POSTED BY: Knut Buettner

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback