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]:=
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]=
Cree un histograma que muestre la distribución de los sitios de nacimiento de sus coestrellas.
In[4]:=
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];In[5]:=
GeoHistogram[birthplaces, 30, GeoRange -> "World",
PlotTheme -> "Marketing", ImageSize -> 400]Out[5]=
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]:=
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]=
