Combinando estilos básicos com estilos específicos 

Combinar estilos básicos com estilos específicos é um ótimo modo de criar um novo estilo que tenha o visual geral do estilo básico com vantagens de estilos específicos. Esta é uma forma conveniente de mudar o visual de um gráfico em um bloco de código.

mostre o input completo de Wolfram Languageoculte o 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 e DateListPlot para criar uma grade de gráficos do tempo. Combinando estilos básicos com estilos específicos você tem um modo fácil de mudar o visual de gráficos.

mostre o input completo de Wolfram Languageoculte o 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]=