0
$\begingroup$

This question already has an answer here:

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]
$\endgroup$

marked as duplicate by Kuba Jan 16 '18 at 7:16

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.

0
$\begingroup$

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

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.