Combine dados de vários domínios
Além de novas entidades e propriedades, a Wolfram Knowledgebase tem sido melhorada pelo alinhamento e conexões adicionais entre domínios de dados.
Comece com uma estrela de cinema.
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_66.png)
Entity["Person", "MattDamon::88f5d"][
EntityProperty["Person", "Image"]]
![](assets.pt-br/combine-data-from-multiple-domains/O_46.png)
Extraia uma lista de suas aparições em filmes.
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_67.png)
films = Entity["Person", "MattDamon::88f5d"]["MovieAppearances"];
Extraia uma lista de colegas de elenco que possuam as mesmas informações biográficas na Wolfram Knowledgebase.
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_68.png)
costars =
Cases[DeleteDuplicates[
Flatten[EntityValue[films, "Cast"]]], _Entity];
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_69.png)
RandomSample[costars, 10]
![](assets.pt-br/combine-data-from-multiple-domains/O_47.png)
Faça um representação gráfica dos locais de nascimento conhecidos dos colegas de elenco que apareceram em pelo menos um dos filmes de Matt Damon.
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_70.png)
Quiet@GeoGraphics[{Red, PointSize[0.01], Opacity[0.5],
Point@DeleteMissing[EntityValue[costars, "BirthPlace"]]}]
![](assets.pt-br/combine-data-from-multiple-domains/O_48.png)
Use novamente a lista de colegas de elenco e descubra se algum deles alcançou notoriedade em outro domínio criativo.
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_71.png)
writers =
Normal[DeleteMissing[
EntityValue[costars, "NotableBooks", "EntityAssociation"]]]
![](assets.pt-br/combine-data-from-multiple-domains/O_49.png)
Use propriedades de filmes e pessoas para identificar colegas de elenco que, presumivelmente, apareceram apenas em imagens de arquivo e remova-os da lista.
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_72.png)
firstFilm = Sort[EntityValue[films, "ReleaseDate"]][[1]]
![](assets.pt-br/combine-data-from-multiple-domains/O_50.png)
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_73.png)
impossibleCostars =
Select[writers, First[#]["DeathDate"] < firstFilm &]
![](assets.pt-br/combine-data-from-multiple-domains/O_51.png)
![Click for copyable input](assets.pt-br/combine-data-from-multiple-domains/In_74.png)
Complement[writers, impossibleCostars]
![](assets.pt-br/combine-data-from-multiple-domains/O_52.png)