How can I combine all these plots into one one graph?
f[a_, b_, c_] := (a*x^2 + b*x + c)/3;
tup1 := RandomInteger[5, {15, 3}];
Plot[f[##], {x, 0, 10}] & @@@ tup1
$\begingroup$
$\endgroup$
1
1 Answer
$\begingroup$
$\endgroup$
If the plots are already created, you can combine them using Show and post-process to change line colors:
tup = tup1;
plots = Plot[f[##], {x, 0, 10}] & @@@ tup;
Show[plots]
colors = ColorData[97] /@ Range[Length @ tup];
Legended[Show[plots, ImageSize -> Large] /. _?ColorQ :>
Last[colors = RotateLeft[colors]],
LineLegend[colors, tup]]
Plot[f @@@ tup1 // Evaluate, {x, 0, 10}]$\endgroup$