Combinando estilos 

Combine um estilo específico com qualquer dos estilos básicos para ampliar o uso de um estilo básico ou crie um novo design combinando vários estilos específicos.

mostre o input completo de Wolfram Languageoculte o input

In[1]:=

X x = {{}, "Web", "Business", "Minimal"}; y = {{}, "FrameGrid", "PlotMarkers", "ItalicLabels"}; label[i_, {}] := TextCell[i]; label[{}, j_] := TextCell[j]; label[{}, {}] := TextCell["Working"]; label[_, _] := None

In[2]:=

X Grid[Table[ If[{i, j} === {{}, {}}, Spacer[0], ListLinePlot[ Transpose@Table[{x + Sin[x] x, x + Cos[x] x}, {x, 0, 10}], PlotTheme -> {i, j}, PlotLabel -> label[i, j], ImageSize -> 100]], {i, x}, {j, y}], Dividers -> dividers, Alignment -> {Left, Bottom}]

Out[2]=

mostre o input completo de Wolfram Languageoculte o input

In[3]:=

X x = {{}, "Detailed", "Marketing", "Scientific"}; y = {{}, "SingleAxis", "Square", "CoolColor"};

In[4]:=

X Grid[Table[ If[{i, j} === {{}, {}}, Spacer[0], SeedRandom[3]; BarChart[{{2, 5, 4}, {3, 7, 10}}, PlotTheme -> {i, j}, PlotLabel -> label[i, j], ImageSize -> 100]], {i, x}, {j, y}], Dividers -> dividers, Alignment -> {Left, Bottom}]

Out[4]=