Wolfram
Mathematica
8의 신기능: 통계의 시각화
◄
이전
|
다음
►
그래픽 및 시각화
확률 플롯에서 데이터와 분포도 비교
확률-확률 플롯을 사용하여 해당 누적 분포 함수 값에 따라 데이터와 분포도, 데이터와 데이터, 분포도와 데이터 그리고 분포도와 분포도를 비교해 봅니다.
In[1]:=
X
data1 = RandomReal[NormalDistribution[], 25]; data2 = RandomReal[UniformDistribution[{-2, 2}], 25]; dist1 = NormalDistribution[]; dist2 = UniformDistribution[{-2, 2}];
In[2]:=
X
Grid[Partition[ MapThread[ ProbabilityPlot[# /. HoldForm -> Identity, #2 /. HoldForm -> Identity, ImageSize -> 275, ImagePadding -> {{20, 5}, {20, 5}}, AspectRatio -> 1, PlotStyle -> Directive[PointSize[Large], #3], Filling -> {2 -> {1}}, FillingStyle -> Directive[Thick, Lighter[#3, 0.5]], ReferenceLineStyle -> Directive[Dotted, Thick, Lighter[#3, 0.5]], PlotLabel -> Row[{#, " vs. ", #2}], BaseStyle -> {FontFamily -> "Helvetica"}, LabelStyle -> Bold] &, {{HoldForm[data1], HoldForm[data1], HoldForm[dist1], HoldForm[dist1]}, {HoldForm[data2], HoldForm[dist2], HoldForm[data2], HoldForm[dist2]}, ColorData[28] /@ {1, 3, 7, 9}}], 2]]
Out[2]=