Mejore conjuntos de datos curados con datos incorporados
La extensa colección de datos socio-económicos incorporados en Wolfram Knowledgebase pueden ser utilizados para mejorar las fuentes externas de datos.
Comience con un conjunto de datos de lugares de Head Start, importados del Departamento de Vivienda y Desarrollo Urbano de los EE.UU.
In[1]:=
![Click for copyable input](assets.es/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.es/enhance-curated-datasets-with-built-in-data/In_82.png)
Take[hs, 5]
Out[2]=
![](assets.es/enhance-curated-datasets-with-built-in-data/O_57.png)
Use un operador de selección para extraer un subconjunto de ubicaciones.
In[3]:=
![Click for copyable input](assets.es/enhance-curated-datasets-with-built-in-data/In_83.png)
hsChicago =
hs[Select[#CenterCityEntity ===
Entity["City", {"Chicago", "Illinois", "UnitedStates"}] &]];
Represéntelas en un mapa de Chicago.
In[4]:=
![Click for copyable input](assets.es/enhance-curated-datasets-with-built-in-data/In_84.png)
GeoListPlot[hsChicago[All, #Coordinates &]]
Out[4]=
![](assets.es/enhance-curated-datasets-with-built-in-data/O_58.png)
Agrupe las ubicaciones de Head Start y grafique su distribución por código postal.
In[5]:=
![Click for copyable input](assets.es/enhance-curated-datasets-with-built-in-data/In_85.png)
chicagoCounts = Length /@ GroupBy[hsChicago, #CenterZipCodeEntity &];
In[6]:=
![Click for copyable input](assets.es/enhance-curated-datasets-with-built-in-data/In_86.png)
GeoRegionValuePlot[chicagoCounts]
Out[6]=
![](assets.es/enhance-curated-datasets-with-built-in-data/O_59.png)
Recupere los datos incorporados acerca de la población escolar en los códigos postales de Chicago, y grafique dichos valores frente a las ubicaciones de Head Start derivadas de los datos HUD externos.
In[7]:=
![Click for copyable input](assets.es/enhance-curated-datasets-with-built-in-data/In_87.png)
zipcodes = Normal@Keys[chicagoCounts]
Out[7]=
![](assets.es/enhance-curated-datasets-with-built-in-data/O_60.png)
In[8]:=
![Click for copyable input](assets.es/enhance-curated-datasets-with-built-in-data/In_88.png)
chicagoMedian =
EntityValue[zipcodes,
EntityProperty["ZIPCode", "Population", {"Age" -> "SchoolAge"}],
"EntityAssociation"];
muestre la entrada completa de Wolfram Language
Out[9]=
![](assets.es/enhance-curated-datasets-with-built-in-data/O_61.png)