영화 배우와 동료 배우: Wolfram Language 11의 신기능

영화 배우와 동료 배우

크리스토퍼 리 (Christopher Lee)는 배우로서 다양한 경력을 가지고 있고 오랜 기간 함께 일해온 사람들과의 방대한 네트워크를 형성하고 있습니다.

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