Q:

Plot all curves in a table with a single color

I want all of my solutions in a table to be the same color. My attempt:
sol = DSolveValue[y'[t] == -2/t*y[t] + 4 t, y[t], t];
tbl = Table[sol /. C[1] -> C, {C, -1, 1, 0.25}];
Plot[tbl, {t, -2, 2}, PlotStyle -> {Thick, Blue}]

produces:

Is there a simple way to make all curves blue?

A:

PlotStyle -> {{Thick, Blue}}

You have a set of nine separate graphs, and PlotStyle applies each element in its list to subsequent graphs.  Thus if you put PlotStyle -> {Thick, Blue}, Mathematica applies Thick to the first graph, Blue to the second graph, Thick to the third, Blue to the fourth, and so on.  But if you set PlotStyle -> {{Thick, Blue}}, there is only one (compound) element in the list, so Mathematica keeps applying it to every graph.

A:

Plot[tbl, {t, -2, 2}, PlotStyle-> Directive[Thick,Blue]] (* or Directive[{Thick,Blue}] *)

A:

Here is a very simple way.
Plot[tbl, {t, -2, 2}, ColorFunction -> (Blue &)]

