テーマを再定義する 

PlotThemeは，すべての状況に合うテーマはないという考えに基づいて設計された．このため，リストされたオプションをテーマに含まれる設定に優先させることができ，望み通りの外観が簡単に調整できる．

メッシュの色を変更する．

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

カラースキームを変更する．

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

目盛を削除する．

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

凡例を再定義する．

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