Analice las variaciones anuales en la temperatura 

Encuentre la variación en la temperatura en el curso de un año.

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

Encuentre la temperatura máxima y su fecha.

In[4]:=

X MaximalBy[data, Last] // First

Out[4]=

Encuentre el mes con la temperatura promedio máxima.

In[5]:=

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

Out[5]=

Grafique las distribuciones de temperaturas por mes.

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