Gráficos & Visualização

Crie histogramas em pares para comparar dados 

In[1]:=

X PairedHistogram[ WeatherData["Chicago", "MeanTemperature", {{2009, 1, 1}, {2009, 12, 31}, "Day"}, "Value"], WeatherData["NewYork", "MeanTemperature", {{2009, 1, 1}, {2009, 12, 31}, "Day"}, "Value"], {1}, ChartLabels -> {Placed[{"Chicago", "New York"}, Above], None, None}, ChartStyle -> {54, None, None}, ImageSize -> 550, BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 16}, PlotLabel -> "Temperatura Média em Celsius para 2009", PlotRangePadding -> {{0, 0}, {5, 7}}]

Out[1]=