Wolfram
Mathematica
8의 신기능: 금융 시각화
◄
이전
|
다음
►
그래픽 및 시각화
새로운 프레젠테이션을 위한 도표 합성
BubbleChart
와
DateListPlot
을 조합하여 데이터의 참신한 프레젠테이션을 제작해 봅니다.
In[1]:=
X
data = FinancialData["MSFT", "OHLCV", {{2010, 7, 15}, {2010, 8, 20}}]; date = AbsoluteTime /@ data[[All, 1]]; close = data[[All, 2, 4]]; volume = data[[All, 2, 5]];
In[2]:=
X
bubble[colorf_] := BubbleChart[Transpose[{date, close, volume}], AspectRatio -> 1, PerformanceGoal -> "Speed", ColorFunction -> colorf, ChartBaseStyle -> Directive[Opacity[0.8], EdgeForm[Gray]], LabelingFunction -> Tooltip, BubbleSizes -> {0.05, 0.15}];
In[3]:=
X
Labeled[Grid[ Partition[ Table[DateListPlot[Transpose[{date, close}], Joined -> True, Prolog -> First[bubble[colorf]], ImageSize -> 250, AspectRatio -> 1, PlotRangePadding -> Scaled[0.05], BaseStyle -> {FontFamily -> "Helvetica"}], {colorf, {(ColorData["DeepSeaColors"][ 1 - #3] &), (ColorData["BrightBands"][#1] &), (ColorData[ "AvocadoColors"][#3] &), (ColorData[ "AuroraColors"][#2] &)}}], 2]], Style["Stock Price with Volume Bubbles", 20, FontFamily -> "Helvetica"], Top]
Out[3]=