Улучшение отобранных наборов данных со встроенными данными

Обширная коллекция встроенных социоэкономических данных в базе знаний Wolfram может быть использована в дополнениe к внешним источникам данных.

Рассмотреть данные о преимущественных местоположениях, импортированные из департамента США по жилищному строительству и городскому развитию.

In[1]:=

hs = ResourceData["Head Start Locations"][ All, {"CenterName", "CenterAddress", "CenterStateEntity", "CenterCityEntity", "CenterZipCodeEntity", "Coordinates"}];

In[2]:=

Take[hs, 5]

Out[2]=

Использовать оператор выборки для получения выборки местоположений.

In[3]:=

hsChicago = hs[Select[#CenterCityEntity === Entity["City", {"Chicago", "Illinois", "UnitedStates"}] &]];

Изобразить их на карте Чикаго.

In[4]:=

GeoListPlot[hsChicago[All, #Coordinates &]]

Out[4]=

Сгруппировать преимущественные местоположения и графически отобразить их распределение, основываясь на почтовом индексе.

In[5]:=

chicagoCounts = Length /@ GroupBy[hsChicago, #CenterZipCodeEntity &];

In[6]:=

GeoRegionValuePlot[chicagoCounts]

Out[6]=

Получить встроенные данные о населении школьного возраста в Чикаго по почтовым индексам и графически отобразить полученные значения в преимущественных местоположениях, полученныx от внешних данных департамента по жилищному хозяйству и городскому развитию.

In[7]:=

zipcodes = Normal@Keys[chicagoCounts]

Out[7]=

In[8]:=

chicagoMedian = EntityValue[zipcodes, EntityProperty["ZIPCode", "Population", {"Age" -> "SchoolAge"}], "EntityAssociation"];

In[9]:=

locsVSkids = Merge[{Normal@chicagoCounts, chicagoMedian}, Identity]; ListPlot[locsVSkids, FrameLabel -> {"Head Start locations", "School age population"}, ImageSize -> 550, PlotTheme -> "Detailed"]

Out[9]=