Новое в системе Wolfram
Mathematica
8: Статистические визуализации
◄
предыдущая
|
следующая
►
Графика и визуализация
Сравнение университетских заработных плат
Сравнение плотностей распределений заработных плат для нескольких факультетов университета, с пометкой о размере факультета.
In[1]:=
X
salaries = ExampleData[{"Statistics", "UniversitySalaries"}, "DataElements"]; depts = {"Mathematics", "History", "English", "Chemistry", "Law", "Physics", "Statistics"}; salaries = Table[Cases[salaries, {d, _, salary_, "A"} :> salary], {d, depts}];
In[2]:=
X
DistributionChart[salaries, ChartLabels -> Placed[{depts, Length /@ salaries}, {Axis, Center}], ChartStyle -> 54, BarOrigin -> Left, AspectRatio -> 1, LabelStyle -> {FontSize -> 16}, ImageSize -> 575, BaseStyle -> {FontFamily -> "Helvetica"}, LabelStyle -> Bold]
Out[2]=