EducationGauge[location_String]:=With[{edudata=WolframAlpha[location,{{"ACSEducationEntrainments:ACSData",1},"ComputableData"}]},Panel[Row[{AngularGauge[Last/@edudata,{0,100},GaugeLabels->"Unit"],SwatchLegend[63,First/@edudata]}],Style[location<>" educational attainment","Subsection"]]]

EducationGauge["Chicago, IL"]

EducationGauge["Champaign, IL"]

EducationGauge["Denver, CO"]