Combine temas básicos y temas destacados 

Combinar temas básicos y temas destacados es una gran forma de crear un nuevo tema que tiene la apariencia general de un tema básico con cambios del tema destacado. Esta es una forma conveniente de cambiar la apariencia de un gráfico en un bloque de código.

muestre la entrada completa de Wolfram Languageoculte la entrada

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 y DateListPlot para construir una rejilla de gráficos climáticos. Combinar temas básicos y destacados permite cambiar la apariencia de gráficos de forma simple y limpio.

muestre la entrada completa de Wolfram Languageoculte la entrada

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