複数分野からのデータを組み合せる
新しい実体と特性に加えて,Knowledgebaseにおけるデータの分野間のつながりも強化されている.
映画俳優の写真を得る.
In[1]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_66.png)
Entity["Person", "MattDamon::88f5d"][
EntityProperty["Person", "Image"]]
Out[1]=
![](assets.ja/combine-data-from-multiple-domains/O_46.png)
この俳優が出演した映画のリストを取り出す.
In[2]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_67.png)
films = Entity["Person", "MattDamon::88f5d"]["MovieAppearances"];
Wolfram Knowledgebaseに人物情報が含まれている共演者についてそのリストを抽出する.
In[3]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_68.png)
costars =
Cases[DeleteDuplicates[
Flatten[EntityValue[films, "Cast"]]], _Entity];
In[4]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_69.png)
RandomSample[costars, 10]
Out[4]=
![](assets.ja/combine-data-from-multiple-domains/O_47.png)
マット・デイモン(Matt Damon)の映画の少なくとも1つで共演した俳優について,知られている出生地をプロットする.
In[5]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_70.png)
Quiet@GeoGraphics[{Red, PointSize[0.01], Opacity[0.5],
Point@DeleteMissing[EntityValue[costars, "BirthPlace"]]}]
Out[5]=
![](assets.ja/combine-data-from-multiple-domains/O_48.png)
もう一度共演者のリストを使って,その中に別の分野で有名な人がいるかどうかを調べる.
In[6]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_71.png)
writers =
Normal[DeleteMissing[
EntityValue[costars, "NotableBooks", "EntityAssociation"]]]
Out[6]=
![](assets.ja/combine-data-from-multiple-domains/O_49.png)
映画と人物の特性を利用して,記録映像のみに登場する「共演者」を見付け,リストから取り除く.
In[7]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_72.png)
firstFilm = Sort[EntityValue[films, "ReleaseDate"]][[1]]
Out[7]=
![](assets.ja/combine-data-from-multiple-domains/O_50.png)
In[8]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_73.png)
impossibleCostars =
Select[writers, First[#]["DeathDate"] < firstFilm &]
Out[8]=
![](assets.ja/combine-data-from-multiple-domains/O_51.png)
In[9]:=
![Click for copyable input](assets.ja/combine-data-from-multiple-domains/In_74.png)
Complement[writers, impossibleCostars]
Out[9]=
![](assets.ja/combine-data-from-multiple-domains/O_52.png)