Analise variações anuais de temperatura 

Encontre a variação de temperatura ao longo de um ano.

In[1]:=

X data = Table[ date = DatePlus[DateObject[{2012, 1, 1}], i]; {date, AirTemperatureData["KCMI", date, Interval]}, {i, 0, 364}];

In[2]:=

X data = {First[#], First[Differences @@ #[[2, 1]]]} & /@ data;

In[3]:=

X DateListPlot[data]

Out[3]=

Encontre a temperatura máxima e sua data.

In[4]:=

X MaximalBy[data, Last] // First

Out[4]=

Encontre o mês com a temperatura máxima média.

In[5]:=

X means = {#[[1, 1]]["Month"], Mean[#[[All, 2]]]} & /@ GatherBy[data, First[#]["Month"] &]; MaximalBy[means, Last] // First

Out[5]=

Projete as distribuições de temperaturas por mês.

In[6]:=

X DistributionChart[#[[All, 2]] & /@ GatherBy[data, First[#]["Month"] &], ChartLabels -> {"J", "F", "M", "A", "M", "J", "J", "A", "S", "O", "N", "D"}]

Out[6]=