Coestrellas de estrellas de cine
Christopher Lee tuvo una carrera prolifera como actor y, por lo tanto, tuvo una gran red de personas con las que trabajó durante los años.
In[1]:=
![Click for copyable input](assets.es/movie-star-costars/In_89.png)
Length[films =
Entity["Person", "ChristopherLee::mnn5v"]["MovieAppearances"]]
Out[1]=
![](assets.es/movie-star-costars/O_71.png)
In[2]:=
![Click for copyable input](assets.es/movie-star-costars/In_90.png)
Length[costars =
Cases[DeleteDuplicates[
Flatten[EntityValue[films, "Cast"]]], _Entity]]
Out[2]=
![](assets.es/movie-star-costars/O_72.png)
In[3]:=
![Click for copyable input](assets.es/movie-star-costars/In_91.png)
RandomSample[costars, 10]
Out[3]=
![](assets.es/movie-star-costars/O_73.png)
Cree un histograma que muestre la distribución de los sitios de nacimiento de sus coestrellas.
In[4]:=
![Click for copyable input](assets.es/movie-star-costars/In_92.png)
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];
In[5]:=
![Click for copyable input](assets.es/movie-star-costars/In_93.png)
GeoHistogram[birthplaces, 30, GeoRange -> "World",
PlotTheme -> "Marketing", ImageSize -> 400]
Out[5]=
![](assets.es/movie-star-costars/O_74.png)
La mayoría es del Reino Unido, así que es interesante delimitar el gráfico a esa región. No es sorpresa que la mayoría sean de Londres.
In[6]:=
![Click for copyable input](assets.es/movie-star-costars/In_94.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.es/movie-star-costars/O_75.png)
In[7]:=
![Click for copyable input](assets.es/movie-star-costars/In_95.png)
GeoHistogram[ukplaces, 20, PlotTheme -> "Marketing", ImageSize -> 400]
Out[7]=
![](assets.es/movie-star-costars/O_76.png)