Overriding Themes  

PlotTheme was designed with the insight that no theme would fit all situations. Therefore, listed options override the settings contained in a theme, making it easy to adjust the appearance as desired.

Change the mesh color.

In[1]:=

X {Plot3D[Cos[x] Sin[y], {x, -3, 3}, {y, -2, 2}, PlotTheme -> "Business"], Plot3D[Cos[x] Sin[y], {x, -3, 3}, {y, -2, 2}, PlotTheme -> "Business", MeshShading -> {Automatic, None}]}

Out[1]=

Change the color scheme.

In[2]:=

X {ContourPlot[x + Cos[x] Sin[y], {x, -3, 3}, {y, -2, 2}, PlotTheme -> "Web"], ContourPlot[x + Cos[x] Sin[y], {x, -3, 3}, {y, -2, 2}, PlotTheme -> "Web", ColorFunction -> "AvocadoColors"]}

Out[2]=

Remove ticks.

In[3]:=

X {SeedRandom[1]; Histogram[{RandomVariate[RayleighDistribution[0.3], 1000], RandomVariate[RayleighDistribution[0.8], 1000]}, PlotTheme -> "Marketing"], SeedRandom[1]; Histogram[{RandomVariate[RayleighDistribution[0.3], 1000], RandomVariate[RayleighDistribution[0.8], 1000]}, PlotTheme -> "Marketing", FrameTicks -> None]}

Out[3]=

Override legends.

In[4]:=

X {Plot[Evaluate@Table[BesselJ[i, x], {i, {0, 1, 2, 3}}], {x, 0, 6}, PlotTheme -> "Detailed"], Plot[Evaluate@Table[BesselJ[i, x], {i, {0, 1, 2, 3}}], {x, 0, 6}, PlotTheme -> "Detailed", PlotLegends -> LineLegend["Expressions", LegendFunction -> Framed, LegendLabel -> "functions"]]}

Out[4]=