Wolfram
Mathematica
8의 신기능: 통계의 시각화
◄
이전
|
다음
►
그래픽 및 시각화
추정된 분포에 대한 주변 분포 시각화
Old Faithful 간헐천 분출 시간과 분출 간격의 smooth 히스토그램 및 특정 요소에 대한 smooth 히스토그램을 함께 결합시킬 수 있습니다.
In[1]:=
X
data = ExampleData[{"Statistics", "OldFaithful"}];
In[2]:=
X
back = ImageData[ Rasterize[ SmoothHistogram[data[[All, 1]], Axes -> None, PlotRange -> {{0, 7}, All}, PlotStyle -> Red, Filling -> {1 -> {Axis, Red}}, PlotRangePadding -> Scaled[0.02]], Background -> None]];
In[3]:=
X
left = ImageData[ Rasterize[ SmoothHistogram[data[[All, 2]], Axes -> None, PlotRange -> {{30, 110}, {0, All}}, Filling -> {1 -> {Axis, Blue}}, PlotRangePadding -> Scaled[0.02]], Background -> None]];
In[4]:=
X
Show[SmoothHistogram3D[data, ColorFunction -> "DarkRainbow", PlotRange -> {{0, 7}, {30, 110}, {0, All}}, Lighting -> "Neutral", ImageSize -> 550, BaseStyle -> {FontFamily -> "Helvetica"}, LabelStyle -> Bold], Graphics3D[{{Texture[back], Polygon[{Scaled[{0, 1, 0}], Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}, {Texture[left], Polygon[{Scaled[{0, 0, 0}], Scaled[{0, 1, 0}], Scaled[{0, 1, 1}], Scaled[{0, 0, 1}]}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}}]]
Out[4]=