Faites le suivi de la popularité des noms
Obtenez les noms les plus populaires pour les filles et leur classement dans le temps.
In[1]:=
![Click for copyable input](assets.fr/track-the-popularity-of-names/In_28.png)
girls = SortBy[
EntityList[
EntityClass[
"GivenName", {"Gender" -> "Female",
"Rank" -> Interval[{1, 10}]}]], #["Rank"] &]
Out[1]=
![](assets.fr/track-the-popularity-of-names/O_26.png)
In[2]:=
![Click for copyable input](assets.fr/track-the-popularity-of-names/In_29.png)
ranksgirls =
Table[EntityValue[name,
Dated[EntityProperty["GivenName", "Rank"], All]], {name, girls}];
Tracez les classements des 50 dernières années sur une échelle logarithmique dont le sommet est le nom le plus populaire.
In[3]:=
![Click for copyable input](assets.fr/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.fr/track-the-popularity-of-names/O_27.png)
In[4]:=
![Click for copyable input](assets.fr/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.fr/track-the-popularity-of-names/In_32.png)
ranksboys =
Table[EntityValue[name,
Dated[EntityProperty["GivenName", "Rank"], All]], {name, boys}];
Le classement des prénoms de garçons montre que certains prénoms ont une popularité constante au fil du temps.
In[6]:=
![Click for copyable input](assets.fr/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.fr/track-the-popularity-of-names/O_28.png)