Партнёры кинозвёзд: Новое в системе Wolfram Language 11

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

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

In[1]:=

Length[films = 
  Entity["Person", "ChristopherLee::mnn5v"]["MovieAppearances"]]

Out[1]=

In[2]:=

Length[costars = 
  Cases[DeleteDuplicates[
    Flatten[EntityValue[films, "Cast"]]], _Entity]]

Out[2]=

In[3]:=

RandomSample[costars, 10]

Out[3]=

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

In[4]:=

birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];

In[5]:=

GeoHistogram[birthplaces, 30, GeoRange -> "World", 
 PlotTheme -> "Marketing", ImageSize -> 400]

Out[5]=

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

In[6]:=

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]=