Партнёры кинозвёзд
У Кристофера Ли была успешная карьера актёра, вследствие чего образовалась огромная сеть людей, с которыми он работал за многие годы.
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]=
In[7]:=
GeoHistogram[ukplaces, 20, PlotTheme -> "Marketing", ImageSize -> 400]
Out[7]=