Tablero meteorológico 

Los tableros son muy populares para grandes cantidades de datos que requieren de interpretación rápida. Los temas Minimal, Sparkline y NoAxes trabajan bien para este tipo de visualización.

muestre la entrada completa de Wolfram Languageoculte la entrada

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