Weather Dashboard 

Dashboards are very popular for large quantities of data requiring quick interpretation. The Minimal, Sparkline, and NoAxes themes work well for this type of visualization.

show complete Wolfram Language inputhide input

In[1]:=

X Module[{d, low = Brown, high = Orange}, Style[Grid[Partition[Flatten@{ Row@{Spacer[{0, 36}], Style["low ", low], Style["high", high]}, "Temperature (C)", "Humidity", "Wind speed (km/h)", "Pressure (mbar)", Table[{span[[1]], (d = WeatherData[{"Champaign", "IL"}, #, {span[[2]] + DateList[][[1 ;; 4]], DateList[][[1 ;; 4]] }]["Values"] /. Missing["NotAvailable"] -> Sequence[]; Grid[{{ ListLinePlot[d, MaxPlotPoints -> 100, ImageSize -> 100, PlotTheme -> "NoAxes", PlotStyle -> GrayLevel[0, .5]], SpanFromLeft }, { Style[If[# == +"Humidity", Min[# & /@ d], Min[#[[1]] & /@ d]], low], Style[If[# == +"Humidity", Max[# & /@ d], Max[#[[1]] & /@ d]], high] }}, Alignment -> {{Left, Right}}, Spacings -> {0, 0}] ) & /@ {"Temperature", "Humidity", "WindSpeed", "Pressure"}}, {span, {{"24 hrs", {0, 0, -1, 0}}, {"Week", {0, 0, -7 , 0}}, {"Month", {0, -1, 0, 0}}, {"Year", {-1, 0, 0, 0}}}}] }, 5], Background -> {{Gray, Hue[.125, .5, 1], Hue[.2, .4, .9], Hue[.5, .2, .9], Hue[.7, .2, 1]}, {Black, None}}, Frame -> All, FrameStyle -> White], FontFamily -> "Arial", White, Bold]]

Out[1]=