Grundvorlagen und Spezialvorlagen kombinieren 

Die Kombination von Grundvorlagen und Spezialvorlagen ist eine großartige Möglichkeit, eine neue Vorlage zu kreieren, die das Design der Grundvorlage und den Feinschliff der Spezialvorlagen hat. So kann ganz bequem das Design einer Graphik in einem Abschnitt des Codes verändert werden.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X cities = {"NewYork", "LosAngeles", "Phoenix", "Chicago", "Detroit", "Seattle"};

In[2]:=

X ts = WeatherData[#, "MeanTemperature", {{2014, 1, 1}, {2014, 5, 21}, "Day"}] & /@ cities;

Verwenden Sie IconData und DateListPlot, um ein Raster von Wettergraphiken zu erstellen. Mit der Kombination von Grundvorlagen und Spezialvorlagen lässt sich das Design von Graphiken einfach und sauber ändern.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[3]:=

X ClearAll[makeLabel, dateList]; makeLabel[date_, s_: 24] := Style["Air Temperature on " <> DateString[date, {"Year", "/", "Month", "/", "Day"}], s, FontFamily -> "Helvetica"]; dateList[date_] := Take[DateList[AbsoluteTime[date]], 3]; style[label_] := Style[label, 16, FontFamily -> "Helvetica"]; grid[cont_] := Grid[Partition[cont, 2], Spacings -> 2]

In[4]:=

X Manipulate[Labeled[grid[MapIndexed[ Labeled[ DateListPlot[#, PlotTheme -> {"Web", "NoAxes", "Wide"}, GridLines -> {{Dynamic[{AbsoluteTime[{2014, 1, x}], Directive[Thick, Red]}]}, {0}}, PlotLabel -> style[cities[[First@#2]]]], Dynamic@Show[ IconData["AirTemperature", #[dateList[{2014, 1, x}]]], ImageSize -> 70], Left] &, ts]], Dynamic[makeLabel[{2014, 1, x}]], Top], {{x, 1, "day"}, 1, 141, 1}]

Out[4]=