电影明星的合作者
克里斯托弗·李是位高产的演员,因此多年来与他合作过的人有很多.
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]=

创建一个直方图,显示他的合作演员出生地的分布情况.
In[4]:=

birthplaces = DeleteMissing[EntityValue[costars, "BirthPlace"]];
In[5]:=

GeoHistogram[birthplaces, 30, GeoRange -> "World",
PlotTheme -> "Marketing", ImageSize -> 400]
Out[5]=

大多数人来自英国,所以把绘图区域限制在那里会更有意思. 不出所料,大多数人出生在伦敦.
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]=
