Wolfram
Mathematica
8의 신기능: 금융 시각화
◄
이전
|
다음
►
그래픽 및 시각화
금융 이외의 데이터를 포함하는 차트 작성
새로운 금융 도표로 시계열 데이터를 분석해 봅니다.
In[1]:=
X
temp = WeatherData["Chicago", "Temperature", {{2009, 1, 1}, {2009, 12, 31}, "Day"}];
In[2]:=
X
pf = PointFigureChart[temp, ImageSize -> 250, AspectRatio -> 1, ChartElementFunction -> ChartElementDataFunction["GradientScaleRectangle", "ColorScheme" -> "TemperatureMap"], ChartBaseStyle -> EdgeForm[Gray], Axes -> {True, False}, Frame -> {{True, True}, {False, True}}];
In[3]:=
X
renko = RenkoChart[temp, {"Absolute", 5}, ImageSize -> 250, AspectRatio -> 1, ChartElementFunction -> ChartElementDataFunction["GradientScaleRectangle", "ColorScheme" -> "TemperatureMap"], ChartBaseStyle -> EdgeForm[Gray], Axes -> {True, False}, Frame -> {{True, True}, {False, True}}];
In[4]:=
X
lb = LineBreakChart[temp, ImageSize -> 250, AspectRatio -> 1, ChartElementFunction -> ChartElementDataFunction["GradientScaleRectangle", "ColorScheme" -> "ThermometerColors"], Axes -> {True, False}, Frame -> {{True, True}, {False, True}}];
In[5]:=
X
datelist = DateListPlot[temp, ImageSize -> 250, AspectRatio -> 1];
In[6]:=
X
Labeled[Grid[{{datelist, renko}, {pf, lb}}], Style["Chicago Median Temperature for 2009", 20, FontFamily -> "Helvetica"], Top]
Out[6]=