名前の人気度を追跡する

女の子の赤ちゃんに最も人気の高い名前と，時間の経過に伴うランキングを得る．

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}];

過去50年のランキングを対数スケールにプロットする．最も人気のある名前が一番上にくる．

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}];

男の子の名前のランキングを見ると，時間の経過とは無関係に，常に人気のある名前がいくつかあることが分かる．

In[6]:=

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

Out[6]=