Язык Wolfram Language

Новые визуализации предметных областей

Партнёры кинозвёзд

У Кристофера Ли была успешная карьера актёра, вследствие чего образовалась огромная сеть людей, с которыми он работал за многие годы.

In[1]:=
Click for copyable input
Length[films = Entity["Person", "ChristopherLee::mnn5v"]["MovieAppearances"]]
Out[1]=
In[2]:=
Click for copyable input
Length[costars = Cases[DeleteDuplicates[ Flatten[EntityValue[films, "Cast"]]], _Entity]]
Out[2]=
In[3]:=
Click for copyable input
RandomSample[costars, 10]
Out[3]=

Создайте гистограмму, демонстрирующую распределение мест рождения его партнёров по кинофильмам.

In[4]:=
Click for copyable input
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];
In[5]:=
Click for copyable input
GeoHistogram[birthplaces, 30, GeoRange -> "World", PlotTheme -> "Marketing", ImageSize -> 400]
Out[5]=

Наибольшее количество его партнёров были из Объединённого Королевства, поэтому будет целесообразно ограничить график до данного региона. Неудивительно, что большинство из них из Лондона.

In[6]:=
Click for copyable input
Length[ukplaces = Select[DeleteMissing[EntityValue[birthplaces, "Position"]], GeoWithinQ[#, \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "UK", Typeset`boxes$$ = TemplateBox[{"\"United Kingdom\"", RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"", "\"country\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "UK", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "2", "Values" -> {{ "name" -> "Country", "desc" -> "a country", "input" -> "*C.UK-_*Country-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.UK-_*GivenName-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.3113849999999999999`5.944842681451477, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{210., {7., 15.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)] &]]
Out[6]=
In[7]:=
Click for copyable input
GeoHistogram[ukplaces, 20, PlotTheme -> "Marketing", ImageSize -> 400]
Out[7]=

Родственные примеры

de en es fr ja ko pt-br zh