Message Boards Message Boards

How to use Manipulate on Show to remove/add a group of plots?

Lance Randall Gamier
Posted 2 years ago

I want to be able to use Manipulate on Show[plot1,plot2] in order to make groups of plot appear/disappear. I've tried running the code below but the checkmarks doesn't add/remove the visibility of plots.

plot1 = Plot[{Cos[x], 2*Cos[x], 1/2*Cos[x]}, {x, 0, 5}, 
PlotLegends -> LineLegend["Expressions"], PlotStyle -> Orange];
plot2 = Plot[{Sin[x], 2*Sin[x], 1/2*Sin[x]}, {x, 0, 5}, 
PlotLegends -> LineLegend["Expressions"], PlotStyle -> Green];
Manipulate[
Show[plot1, plot2, 
PlotStyle -> {Opacity[a], Opacity[b]}], {{a, 1, "Cosines"}, {1, 
0}}, {{b, 1, "Sines"}, {1, 0}}, ControlPlacement -> Top, 
FrameMargins -> 0]

The following produces the combined plot of: Show Manipulate
POSTED BY: Lance Randall Gamier
2 Replies
Sort By:

Hi Lance

plot1 = Plot[{Cos[x], 2*Cos[x], 1/2*Cos[x]}, {x, 0, 5}, 
   PlotLegends -> LineLegend["Expressions"], PlotStyle -> Orange];
plot2 = Plot[{Sin[x], 2*Sin[x], 1/2*Sin[x]}, {x, 0, 5}, 
   PlotLegends -> LineLegend["Expressions"], PlotStyle -> Green];
Manipulate[
 Show[{If[a, plot1, Nothing], If[b, plot2, Nothing], Graphics[]}, 
  PlotStyle -> {Opacity[a], Opacity[b]}], {{a, True, 
   "Cosines"}, {True, False}}, {{b, True, "Sinuses"}, {True, False}},
 ControlPlacement -> Top, FrameMargins -> 0]

Robert
POSTED BY: Robert Nowak
Rohit Namjoshi
Rohit Namjoshi
Posted 2 years ago

Crossposted here.

Lance, If you crosspost then please mention that in your post and add the relevant links.
POSTED BY: Rohit Namjoshi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract