Combining Base Theme and Feature Theme 

Combining base themes and feature themes is a great way to create a new theme that has the overall look of a base theme with tweaks from feature themes. This is a convenient way to change the look of a plot in a block of code.

show complete Wolfram Language inputhide input

In[1]:=

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

In[2]:=

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

Use IconData and DateListPlot to construct a grid of weather plots. Combining base themes and feature themes provides an easy and clean way to change the look of plots.

show complete Wolfram Language inputhide input

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