追踪名字的受欢迎程度
获取这些年最流行的初生女婴的名字及其排名.
In[1]:=
![Click for copyable input](assets.zh/track-the-popularity-of-names/In_28.png)
girls = SortBy[
EntityList[
EntityClass[
"GivenName", {"Gender" -> "Female",
"Rank" -> Interval[{1, 10}]}]], #["Rank"] &]
Out[1]=
![](assets.zh/track-the-popularity-of-names/O_26.png)
In[2]:=
![Click for copyable input](assets.zh/track-the-popularity-of-names/In_29.png)
ranksgirls =
Table[EntityValue[name,
Dated[EntityProperty["GivenName", "Rank"], All]], {name, girls}];
在对数图上绘制最近50年的排名,最流行的名字排在最上面.
In[3]:=
![Click for copyable input](assets.zh/track-the-popularity-of-names/In_30.png)
DateListStepPlot[ranksgirls,
ScalingFunctions -> {-Log[#] &, Exp[-#] &}, PlotLegends -> girls,
PlotTheme -> "Business", ImageSize -> 475,
PlotRange -> {{DateObject[{1965}], DateObject[{2015}]}, All}]
Out[3]=
![](assets.zh/track-the-popularity-of-names/O_27.png)
In[4]:=
![Click for copyable input](assets.zh/track-the-popularity-of-names/In_31.png)
boys = SortBy[
EntityList[
EntityClass[
"GivenName", {"Gender" -> "Male",
"Rank" -> Interval[{1, 10}]}]], #["Rank"] &];
In[5]:=
![Click for copyable input](assets.zh/track-the-popularity-of-names/In_32.png)
ranksboys =
Table[EntityValue[name,
Dated[EntityProperty["GivenName", "Rank"], All]], {name, boys}];
查看男孩儿名字的排名,可以看出有些名字一直都很受欢迎.
In[6]:=
![Click for copyable input](assets.zh/track-the-popularity-of-names/In_33.png)
DateListStepPlot[ranksboys,
ScalingFunctions -> {-Log[#] &, Exp[-#] &}, PlotLegends -> boys,
PlotTheme -> "Business", ImageSize -> 475,
PlotRange -> {{DateObject[{1965}], DateObject[{2015}]}, All}]
Out[6]=
![](assets.zh/track-the-popularity-of-names/O_28.png)