Die Beliebtheit von Namen verfolgen: Neu in Wolfram Language 11

Die Beliebtheit von Namen verfolgen

Ermitteln Sie die beliebtesten Mädchennamen in den USA und deren Ranking im Laufe der Zeit.

In[1]:=

girls = SortBy[
  EntityList[
   EntityClass[
    "GivenName", {"Gender" -> "Female", 
     "Rank" -> Interval[{1, 10}]}]], #["Rank"] &]

Out[1]=

In[2]:=

ranksgirls = 
  Table[EntityValue[name, 
    Dated[EntityProperty["GivenName", "Rank"], All]], {name, girls}];

Plotten Sie das Ranking der letzten 50 Jahre auf einer Logskala, die den beliebtesten Namen ganz oben anzeigt.

In[3]:=

DateListStepPlot[ranksgirls, 
 ScalingFunctions -> {-Log[#] &, Exp[-#] &}, PlotLegends -> girls, 
 PlotTheme -> "Business", ImageSize -> 475, 
 PlotRange -> {{DateObject[{1965}], DateObject[{2015}]}, All}]

Out[3]=

In[4]:=

boys = SortBy[
   EntityList[
    EntityClass[
     "GivenName", {"Gender" -> "Male", 
      "Rank" -> Interval[{1, 10}]}]], #["Rank"] &];

In[5]:=

ranksboys = 
  Table[EntityValue[name, 
    Dated[EntityProperty["GivenName", "Rank"], All]], {name, boys}];

Was das Ranking der Jungennamen betrifft, waren einige Namen im Laufe der Zeit gleichbleibend beliebt.

In[6]:=

DateListStepPlot[ranksboys, 
 ScalingFunctions -> {-Log[#] &, Exp[-#] &}, PlotLegends -> boys, 
 PlotTheme -> "Business", ImageSize -> 475, 
 PlotRange -> {{DateObject[{1965}], DateObject[{2015}]}, All}]

Out[6]=