Co-Stars vom Filmstars
Christopher Lee konnte auf eine beeindruckende Karriere als Schauspieler zurückblicken. Das Netzwerk von Leuten, mit denen er im Laufe der Jahre gearbeitet hat, ist dementsprechend groß.
In[1]:=
![Click for copyable input](assets.de/movie-star-costars/In_88.png)
Length[films =
Entity["Person", "ChristopherLee::mnn5v"]["MovieAppearances"]]
Out[1]=
![](assets.de/movie-star-costars/O_71.png)
In[2]:=
![Click for copyable input](assets.de/movie-star-costars/In_89.png)
Length[costars =
Cases[DeleteDuplicates[
Flatten[EntityValue[films, "Cast"]]], _Entity]]
Out[2]=
![](assets.de/movie-star-costars/O_72.png)
In[3]:=
![Click for copyable input](assets.de/movie-star-costars/In_90.png)
RandomSample[costars, 10]
Out[3]=
![](assets.de/movie-star-costars/O_73.png)
Erstellen Sie ein Histogramm mit der Verteilung der Geburtsorte seiner Co-Stars.
In[4]:=
![Click for copyable input](assets.de/movie-star-costars/In_91.png)
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];
In[5]:=
![Click for copyable input](assets.de/movie-star-costars/In_92.png)
GeoHistogram[birthplaces, 30, GeoRange -> "World",
PlotTheme -> "Marketing", ImageSize -> 400]
Out[5]=
![](assets.de/movie-star-costars/O_74.png)
Der Großteil seiner Co-Stars wurde im Vereinigten Königreich geboren, daher ist es interessant, die Graphik auf diese Region zu beschränken. Wenig überraschend kommen die meisten aus London.
In[6]:=
![Click for copyable input](assets.de/movie-star-costars/In_93.png)
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]=
![](assets.de/movie-star-costars/O_75.png)
In[7]:=
![Click for copyable input](assets.de/movie-star-costars/In_94.png)
GeoHistogram[ukplaces, 20, PlotTheme -> "Marketing", ImageSize -> 400]
Out[7]=
![](assets.de/movie-star-costars/O_76.png)