Colegas de elenco de estrelas do cinema
Christopher Lee teve uma carreira de sucesso como ator e, consequentemente, teve uma grande rede de pessoas com quem trabalhou ao longo dos anos.
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]=
Crie um histograma mostrando a distribuição dos locais de nascimento de seus colegas de elenco.
In[4]:=
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];In[5]:=
GeoHistogram[birthplaces, 30, GeoRange -> "World",
PlotTheme -> "Marketing", ImageSize -> 400]Out[5]=
A maioria deles é do Reino Unido, por isso é interessante limitar o gráfico para essa região. Sem surpresa, a maioria é 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]=
