ベーステーマと機能テーマを組み合せる 

ベーステーマと機能テーマを組み合せると，全体的にはベーステーマのようでも機能テーマからの調整が加わった新しいテーマが生成できる．これは，コードブロックでプロットの外観を変更する便利な方法である．

完全なWolfram言語入力を表示する入力を隠す

In[1]:=

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

In[2]:=

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

IconDataとDateListPlotを使って，天気プロットの格子を構築する．ベーステーマと機能テーマを組み合せると簡単・簡潔にプロットの外観が変更できる．

完全なWolfram言語入力を表示する入力を隠す

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