Wolfram
Mathematica
8의 신기능: 새롭게 향상된 과학 및 정보 시각화 기능
◄
이전
|
다음
►
그래픽 및 시각화
인구 피라미드 만들기
인구 피라미드를 만듭니다.
In[1]:=
X
{age, male, female} = Transpose[ WolframAlpha[ "us population pyramid", {{"Result", 1}, "ComputableData"}]];
In[2]:=
X
PairedBarChart[male, female, ChartStyle -> {{ColorData["Pastel", 1], ColorData["Pastel", 0.2]}, None, None}, ChartLabels -> {Placed[{"Men", "Women"}, Top], None, Placed[age, Axis, Row[#[[1]], "-"] &]}, BarSpacing -> {2 10^6, 0, 0}, PlotLabel -> "United States Population by Age, 2008", ImageSize -> 550, BaseStyle -> {FontFamily -> "Helvetica"}]
Out[2]=