Язык Wolfram Language

Новые визуализации предметных областей

Отслеживание популярности имён

Получите самые популярные имена для девочек и их рейтинг во времени.

In[1]:=
Click for copyable input
girls = SortBy[ EntityList[ EntityClass[ "GivenName", {"Gender" -> "Female", "Rank" -> Interval[{1, 10}]}]], #["Rank"] &]
Out[1]=
In[2]:=
Click for copyable input
ranksgirls = Table[EntityValue[name, Dated[EntityProperty["GivenName", "Rank"], All]], {name, girls}];

Графически изобразите рейтинг за последние 50 лет на логарифмической шкале с самыми популярными именами наверху.

In[3]:=
Click for copyable input
DateListStepPlot[ranksgirls, ScalingFunctions -> {-Log[#] &, Exp[-#] &}, PlotLegends -> girls, PlotTheme -> "Business", ImageSize -> 475, PlotRange -> {{DateObject[{1965}], DateObject[{2015}]}, All}]
Out[3]=
In[4]:=
Click for copyable input
boys = SortBy[ EntityList[ EntityClass[ "GivenName", {"Gender" -> "Male", "Rank" -> Interval[{1, 10}]}]], #["Rank"] &];
In[5]:=
Click for copyable input
ranksboys = Table[EntityValue[name, Dated[EntityProperty["GivenName", "Rank"], All]], {name, boys}];

Если взглянуть на рейтинг имён для мальчиков, то становится очевидно, что некоторые из них были постоянно популярны на протяжении многих лет.

In[6]:=
Click for copyable input
DateListStepPlot[ranksboys, ScalingFunctions -> {-Log[#] &, Exp[-#] &}, PlotLegends -> boys, PlotTheme -> "Business", ImageSize -> 475, PlotRange -> {{DateObject[{1965}], DateObject[{2015}]}, All}]
Out[6]=

Родственные примеры

de en es fr ja ko pt-br zh