0

I have several existing plots and I want to put them together with distinguishing style. However I don't want to evaluate them again since each takes a very long time. So I write the following but it doesn't work, what is the correct syntax?

Show[plot1, plot2, plot3, PlotStyle -> {Blue, Orange, Green}, PlotRange -> All]
2ub
  • 301
  • 1
  • 8

1 Answers1

0

I recommend adding a PlotStyle to each plot and being patient 

Show[MapIndexed[#1 /. {{a__, Line[b__]} :> {a, ColorData[97, First@#2], Line[b]}} &, {plot1, plot2, plot3}]]

but here is a way to do it in Show[]

enter image description here

Conor
  • 7,449
  • 1
  • 22
  • 46