Novos Recursos do
Mathematica
8: Visualizações Estatísticas
◄
anterior
|
próximo
►
Gráficos & Visualização
Compare Salários Universitários
Compare a distribuição de salários nos diversos departamentos em uma universidade, além disso, adicione legendas com os tamanhos dos departamentos.
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]=