Объединение данных из разных предметных областей
В дополнение к новым понятиям и характеристикам, база знаний Wolfram была также оснащена функциями нахождения общих характеристик и связями между предметными областями данных.
Рассмотреть пример отдельной кино-кинозвезды.
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_66.png)
Entity["Person", "MattDamon::88f5d"][
EntityProperty["Person", "Image"]]
![](assets.ru/combine-data-from-multiple-domains/O_46.png)
Получить список фильмов, в которых он снимался.
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_67.png)
films = Entity["Person", "MattDamon::88f5d"]["MovieAppearances"];
Получить список звёзд, с которыми он снимался в одном фильме, и о ком можно найти биографическую информацию в базе знаний Wolfram.
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_68.png)
costars =
Cases[DeleteDuplicates[
Flatten[EntityValue[films, "Cast"]]], _Entity];
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_69.png)
RandomSample[costars, 10]
![](assets.ru/combine-data-from-multiple-domains/O_47.png)
Графически отобразить места рождения всех звёзд, которые появились хотя бы в одном фильме с Мэттом Деймоном.
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_70.png)
Quiet@GeoGraphics[{Red, PointSize[0.01], Opacity[0.5],
Point@DeleteMissing[EntityValue[costars, "BirthPlace"]]}]
![](assets.ru/combine-data-from-multiple-domains/O_48.png)
Узнать, достиг ли кто-нибудь из из кино-звезд известности в других творческих областях.
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_71.png)
writers =
Normal[DeleteMissing[
EntityValue[costars, "NotableBooks", "EntityAssociation"]]]
![](assets.ru/combine-data-from-multiple-domains/O_49.png)
Использовать характеристики фильмов и людей, чтобы идентифицировать звёзд, которые предположительно появились только в архивных съёмках, и удалить их из списка.
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_72.png)
firstFilm = Sort[EntityValue[films, "ReleaseDate"]][[1]]
![](assets.ru/combine-data-from-multiple-domains/O_50.png)
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_73.png)
impossibleCostars =
Select[writers, First[#]["DeathDate"] < firstFilm &]
![](assets.ru/combine-data-from-multiple-domains/O_51.png)
![Click for copyable input](assets.ru/combine-data-from-multiple-domains/In_74.png)
Complement[writers, impossibleCostars]
![](assets.ru/combine-data-from-multiple-domains/O_52.png)