# Wolfram Mathematica

## Movie Star Costars

Christopher Lee had a prolific career as an actor and consequently had a large network of people he worked with over the years.

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]=

Create a histogram showing the distribution of his costars' birthplaces.

In[4]:=
`birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];`
In[5]:=
```GeoHistogram[birthplaces, 30, GeoRange -> "World", PlotTheme -> "Marketing", ImageSize -> 400]```
Out[5]=

The largest number of them were from the United Kingdom, so it is interesting to limit the plot to that region. Unsurprisingly, most of them are from London.

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]=