Substituindo estilos 

O PlotTheme foi projetado com o conhecimento de que nenhum estilo se enquadraria a todas as situações. Portanto, opções listadas substituem as configurações contidas em um estilo, tornando mais fácil o ajuste da aparência conforme desejado.

Altere a cor da malha.

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]=

Altere o esquema de cores.

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]=

Remova marcações no eixo.

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]=

Substitua legendas.

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]=