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]:=
![Click for copyable input](assets.pt-br/movie-star-costars/In_88.png)
Length[films =
Entity["Person", "ChristopherLee::mnn5v"]["MovieAppearances"]]
Out[1]=
![](assets.pt-br/movie-star-costars/O_71.png)
In[2]:=
![Click for copyable input](assets.pt-br/movie-star-costars/In_89.png)
Length[costars =
Cases[DeleteDuplicates[
Flatten[EntityValue[films, "Cast"]]], _Entity]]
Out[2]=
![](assets.pt-br/movie-star-costars/O_72.png)
In[3]:=
![Click for copyable input](assets.pt-br/movie-star-costars/In_90.png)
RandomSample[costars, 10]
Out[3]=
![](assets.pt-br/movie-star-costars/O_73.png)
Crie um histograma mostrando a distribuição dos locais de nascimento de seus colegas de elenco.
In[4]:=
![Click for copyable input](assets.pt-br/movie-star-costars/In_91.png)
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];
In[5]:=
![Click for copyable input](assets.pt-br/movie-star-costars/In_92.png)
GeoHistogram[birthplaces, 30, GeoRange -> "World",
PlotTheme -> "Marketing", ImageSize -> 400]
Out[5]=
![](assets.pt-br/movie-star-costars/O_74.png)
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]:=
![Click for copyable input](assets.pt-br/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.pt-br/movie-star-costars/O_75.png)
In[7]:=
![Click for copyable input](assets.pt-br/movie-star-costars/In_94.png)
GeoHistogram[ukplaces, 20, PlotTheme -> "Marketing", ImageSize -> 400]
Out[7]=
![](assets.pt-br/movie-star-costars/O_76.png)