Wolfram Language

Nuevos dominios de visualización

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
Length[films = Entity["Person", "ChristopherLee::mnn5v"]["MovieAppearances"]]
Out[1]=
In[2]:=
Click for copyable input
Length[costars = Cases[DeleteDuplicates[ Flatten[EntityValue[films, "Cast"]]], _Entity]]
Out[2]=
In[3]:=
Click for copyable input
RandomSample[costars, 10]
Out[3]=

Cree un histograma que muestre la distribución de los sitios de nacimiento de sus coestrellas.

In[4]:=
Click for copyable input
birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];
In[5]:=
Click for copyable input
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]:=
Click for copyable input
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]:=
Click for copyable input
GeoHistogram[ukplaces, 20, PlotTheme -> "Marketing", ImageSize -> 400]
Out[7]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh