Wolfram Cloud Document

Champaign

champaignTemp=WeatherData

Champaign

CITY

,"Temperature",{{1970,1,1},Today,"Day"};

datePath=champaignTemp["DatePath"]/.{x_,y_Quantity}{x,UnitConvert[y,"DegreesFahrenheit"]};

{min,max}=MinMax[datePath[[All,2]]]

{

-15.808

°F

93.794

°F

}

mean=Mean@datePath[[All,2]]

52.329

°F

$blendingColors={RGBColor[1/6,0,2/3],RGBColor[2/3,1/4,5/12],RGBColor[1,9/10,0]};Graphics[Table[{Blend[$blendingColors,x],Disk[{8x,0}]},{x,0,1,1/8}]](*quickpicforlookingathowthebledingwillturnout*)

cf[x_]:=Blend[$blendingColors,x]$legend=BarLegend[{cf[#]&,{0,1}},"Ticks"{0,.5,1},"TickLabels"(Style[#,FontFamily"Avenir"]&/@{Quantity[-10,"DegreesFahrenheit"],Quantity[45,"DegreesFahrenheit"],Quantity[100,"DegreesFahrenheit"]}),LegendLabelStyle["Temperature",FontFamily"Avenir"]];

scaledDatePath=datePath/.{x_,y_}{x,Rescale[y,{Quantity[-10,"DegreesFahrenheit"],Quantity[100,"DegreesFahrenheit"]}]};

sortedScaledByYear=GroupBy[scaledDatePath,#[[1,1,1]]&];

Table[imgData[i]=Table[#,4]&/@(Blend[$blendingColors,#]&/@sortedScaledByYear[i][[All,2]])//Transpose,{i,sortedScaledByYear//Keys}];imgData[2017]=Transpose[Join[imgData[2017]//Transpose,Table[{White,White,White,White},365-Length@Last@sortedScaledByYear]]];grid=Grid[Join[{{Null,Column[{Style["Daily Temperature in Champaign, IL",FontFamily->"Helvetica",18,Bold],Style["1973 - 2017",FontFamily->"Avenir",13]}],SpanFromLeft}},Table[{Style[i,FontFamily"Avenir"],Image[imgData[i],ImageSize1200],SpanFromLeft},{i,sortedScaledByYear//Keys}],{{Null,Style["January",FontFamily->"Avenir",13],Style["December",FontFamily->"Avenir",13]}}],Spacings{.5,0.1},Alignment{{Left,Left,Right},Top}];final=Framed[Labeled[grid,$legend,Right],ImageMargins10,FrameStyleNone]