Melhore a seleção de conjuntos de dados com dados incorporados
A extensa coleção de dados socioeconômicos incorporados da Wolfram Knowledgebase pode ser usada para melhorar as fontes de dados externas.
Comece com um conjunto de dados de lugares de Head Start, importados do Departamento de Habitação e Desenvolvimento Urbano dos Estados Unidos.
In[1]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_81.png)
hs = ResourceData["Head Start Locations"][
All, {"CenterName", "CenterAddress", "CenterStateEntity",
"CenterCityEntity", "CenterZipCodeEntity", "Coordinates"}];
In[2]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_82.png)
Take[hs, 5]
Out[2]=
![](assets.pt-br/enhance-curated-datasets-with-built-in-data/O_57.png)
Use um operador de selecção para extrair um subconjunto de localizações.
In[3]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_83.png)
hsChicago =
hs[Select[#CenterCityEntity ===
Entity["City", {"Chicago", "Illinois", "UnitedStates"}] &]];
Represente-as em um mapa de Chicago.
In[4]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_84.png)
GeoListPlot[hsChicago[All, #Coordinates &]]
Out[4]=
![](assets.pt-br/enhance-curated-datasets-with-built-in-data/O_58.png)
Agrupe as localizações de Head Start e faça uma representação gráfica de sua distribuição por CEP.
In[5]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_85.png)
chicagoCounts = Length /@ GroupBy[hsChicago, #CenterZipCodeEntity &];
In[6]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_86.png)
GeoRegionValuePlot[chicagoCounts]
Out[6]=
![](assets.pt-br/enhance-curated-datasets-with-built-in-data/O_59.png)
Extraia dados integrados sobre a população em idade escolar em CEPs de Chicago e faça um gráfico desses valores frente as localizações de Head Start derivadas dos dados HUD externos.
In[7]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_87.png)
zipcodes = Normal@Keys[chicagoCounts]
Out[7]=
![](assets.pt-br/enhance-curated-datasets-with-built-in-data/O_60.png)
In[8]:=
![Click for copyable input](assets.pt-br/enhance-curated-datasets-with-built-in-data/In_88.png)
chicagoMedian =
EntityValue[zipcodes,
EntityProperty["ZIPCode", "Population", {"Age" -> "SchoolAge"}],
"EntityAssociation"];
mostre o input completo da Wolfram Language
Out[9]=
![](assets.pt-br/enhance-curated-datasets-with-built-in-data/O_61.png)