精選されたデータ集合を組込みデータで強化する
Wolfram Knowledgebaseの広範に渡る組込みの社会経済学データのコレクションを使って,外部ソースのデータを強化することができる.
Head Start(3,4歳児のための就学援助プログラム)の位置についてのデータ集合を,米国住宅・都市開発省からインポートする.
In[1]:=
![Click for copyable input](assets.ja/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.ja/enhance-curated-datasets-with-built-in-data/In_82.png)
Take[hs, 5]
Out[2]=
![](assets.ja/enhance-curated-datasets-with-built-in-data/O_57.png)
選択演算子を使って,位置の部分集合を抽出する.
In[3]:=
![Click for copyable input](assets.ja/enhance-curated-datasets-with-built-in-data/In_83.png)
hsChicago =
hs[Select[#CenterCityEntity ===
Entity["City", {"Chicago", "Illinois", "UnitedStates"}] &]];
それらをシカゴの地図上に表示する.
In[4]:=
![Click for copyable input](assets.ja/enhance-curated-datasets-with-built-in-data/In_84.png)
GeoListPlot[hsChicago[All, #Coordinates &]]
Out[4]=
![](assets.ja/enhance-curated-datasets-with-built-in-data/O_58.png)
Head Startの位置をグループ分けし,郵便番号ごとにその分布をプロットする.
In[5]:=
![Click for copyable input](assets.ja/enhance-curated-datasets-with-built-in-data/In_85.png)
GeoRegionValuePlot[chicagoCounts]
Out[5]=
![](assets.ja/enhance-curated-datasets-with-built-in-data/O_59.png)
シカゴの郵便番号の地域における,学齢期の子どもの人口についての組込みデータを取り出し,それらの値を外部の住宅・都市開発省のデータから取り出したHead Startの所在地数と合わせてプロットする.
In[6]:=
![Click for copyable input](assets.ja/enhance-curated-datasets-with-built-in-data/In_86.png)
zipcodes = Normal@Keys[chicagoCounts]
Out[6]=
![](assets.ja/enhance-curated-datasets-with-built-in-data/O_60.png)
In[7]:=
![Click for copyable input](assets.ja/enhance-curated-datasets-with-built-in-data/In_87.png)
chicagoMedian =
EntityValue[zipcodes,
EntityProperty["ZIPCode", "Population", {"Age" -> "SchoolAge"}],
"EntityAssociation"];
完全なWolfram言語入力を表示する
Out[8]=
![](assets.ja/enhance-curated-datasets-with-built-in-data/O_61.png)