Plotting: Change colour scheme and line thickness at the same time

Question

Some stylistic attributes of plots are independent of colour, e.g. thickness, dashing, etc.

I can make the lines thick in this plot without having to specify a separate style for each line:

Plot[Table[BesselJ[n, x], {n, 4}] // Evaluate, {x, 0, 10}, 
 PlotStyle -> Thickness[0.01]]

I can also easily change the colour scheme:

Plot[Table[BesselJ[n, x], {n, 4}] // Evaluate, {x, 0, 10}, 
 PlotStyle -> 98]

How can I change both the colour scheme and the line thickness (or dashing) at the same time, without having to specify a separate style for each plotted function?

The following works, but it is cumbersome and requires hard-coding the number of plotted functions (or putting in an arbitrary large number):

Plot[Table[BesselJ[n, x], {n, 4}] // Evaluate, {x, 0, 10}, 
 PlotStyle -> (Directive[ColorData[98][#], Thickness[0.01]] & /@ Range[4])]

I know that I can do PlotStyle -> 98, PlotTheme -> "ThickLines", but that requires me to use a single pre-defined line thickness (or to choose from only a few). It does not allow me to set my own custom base plotting style with an arbitrary thickness and dashing specification.

Answer 1

You can use the (undocumented) Method suboption "DefaultPlotStyle" as a second place to specify plot styles:

Plot[Table[BesselJ[n, x], {n, 4}] // Evaluate, {x, 0, 10},
 PlotStyle -> 98,
 Method -> "DefaultPlotStyle" -> Thick
 ]

More generally, you could specify a list of directives in PlotStyle, and a common default in "DefaultPlotStyle":

Plot[Table[BesselJ[n, x], {n, 4}] // Evaluate, {x, 0, 10},
 PlotStyle -> {Directive[Red, Dashed], Green, Blue, 
   Directive[Orange, DotDashed]}, 
 Method -> "DefaultPlotStyle" -> Thick,
 BaseStyle -> Dotted
 ]

Note however that this can interfere with PlotTheme, since themes use the same option to set common default styles. In case more control is needed, you can register a custom plot theme that sets the "DefaultColor", "DefaultThickness", etc. suboptions before they are merged into "DefaultPlotStyle" by Charting`ResolvePlotTheme:

System`PlotThemeDump`resolvePlotTheme[{"CustomTheme", 
   opts : OptionsPattern[]}, s_] := Themes`SetWeight[
  {opts},
  Themes`$DesignWeight
  ]

This defines a new PlotTheme that accepts an arbitrary lists of options to be added to the plot theme options (see e.g. this answer for more details on the mechanism). It can be used for example like this:

Plot[TriangleWave[x], {x, 0, 3},
 PlotTheme -> {
   "CustomTheme",
   "DefaultColor" -> Red,
   "DefaultCurveStyle" -> JoinForm@"Round"
   }]

While you can in principle set any option with this "theme", the following are particularly interesting: "DefaultColor", "DefaultThickness", "DefaultTransparency", "DefaultDashing", "DefaultCurveStyle". This is because these particular options are combined into "DefaultPlotTheme" as part of Charting`ResolvePlotTheme, as mentioned above, which reduces interference between these custom settings and other themes (including the default one) as much as possible.