# PlotStyle a particular curve

Let me give an example

 pfun = ParametricNDSolveValue[{y'[t] == a y[t], y[0] == 1}, y, {t, 0, 10}, {a}];

Plot[Evaluate[Table[pfun[a][t], {a, -1, 1, .5}]], {t, 0, 1}, PlotRange -> All, PlotLegends -> Automatic]


which gives

How can I set, for example, that only the orange curve be thick. One would think to do

PlotStyle->{Default,Thick,Default,Default,Default}


But what if we do

Plot[Evaluate[Table[pfun[a][t], {a, -1, 1, .1}]], {t, 0, 1}, PlotRange -> All, PlotStyle -> Thick]


and get

Is there an "elegant" way to give PlotStyle to the curve with a==0, for example?

• Add the option PlotStyle->{Default,Thickness[0.05],Default,Default,Default}to Plot Commented Nov 8, 2017 at 22:15
• @andre Thanks. I edited my question to explain it better. Commented Nov 8, 2017 at 22:24

Plot[
Evaluate[ Table[
If[-0.01<a<0.01 ,Style[pfun[a][t],Thickness[0.02]],pfun[a][t]],
{a, -1, 1, .1}
]] ,
{t, 0, 1},
PlotRange -> All,
PlotStyle -> Thick]


• I modified your suggestion as Plot[Evaluate[Table[If[a == 0,Style[pfun[a][t], Thick], Style[pfun[a][t], Dashed]], {a, -1, 1, .1}]], {t, 0, 1},PlotRange -> All] to show the curve for a==0 thick and the other dashed. Thanks Commented Nov 8, 2017 at 23:05
• @resanrom I wouldn't use a==0 because of some eventual problems of precision. I think it's safer to use a interval like -0.01<a<0.01or Abs[a]<0.01. (0.01 or 1E-3 ...1E-6, I don't know) Commented Nov 8, 2017 at 23:52
• If you had used 1/10 instead of .1 in the step size for Table[], then @resanrom's suggestion would have been reasonable. Commented Nov 9, 2017 at 0:27