Temas superpuestos 

PlotTheme fue diseñado con la premisa de que ningún tema puede servir para toda situación. Por lo tanto, las opciones enumeradas anulan los valores contenidos en un tema, por lo que es fácil ajustar la apariencia si se desea.

Cambie el color de malla.

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

Cambie la gama de color.

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

Remueva marcas.

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

Remueva etiquetas.

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