Kaiser Fungが最近批評しましたこの可処分所得の変化のグラフ。
彼は代わりに分類された勾配グラフを使用するという考えを出しました：
どうやってJMPでこんなことをするの？グラフビルダーで色や色を変えてパネリングや線を描画できます。データを正しい形式にするだけです。いつものように、Graph Builderで勾配グラフを作成する際の重要なステップは、テーブル>スタック 2つのデータ列をラベルの列とデータの列に変換します。次にラベル列はX軸になり、データ列はY軸になります。
まず、データを取得する必要があります。簡単なリメイクをしている時、一番簡単なことはグラフからデータを読むことです。それを手助けするプログラムとウェブサイトがあります。今回は、オンラインアプリを使用しました、 Webプロットデジタイザシリーズごとに別々のCSVファイルが作成されました。もちろん、値は元の値の推定値です。
2つのCSVファイルを開き、列名を "x"と "y"に設定した後、それらを組み合わせて派生値を計算するための次のスクリプトを作成しました。
dt1 = Data Table( "data" );
dt2 = Data Table( "data (1)" );
dt = New Table( "changes",
New Column( "Percentile", Format( "Percent", 8, 0 ), Set Values( (1 :: 100) / 100 ) ),
New Column( "Base", Format( "Percent", 8, 1 ) ),
New Column( "Change2010", Format( "Percent", 8, 1 ) ),
New Column( "Change2013", Format( "Percent", 8, 1 ) ),
New Column( "Net2010", Format( "Percent", 8, 1 ) ),
New Column( "Net2013", Format( "Percent", 8, 1 ) ),
New Column( "Group", Character ),
New Column( "Rank" )
);
For Each Row(
dt,
dt:Base = 1.0;
dt:Change2010 = Interpolate( dt:Percentile, dt2:x << Get Values(), dt2:y << Get Values );
dt:Change2013 = Interpolate( dt:Percentile, dt1:x << Get Values(), dt1:y << Get Values );
dt:Net2010 = dt:Base * (1 + dt:Change2010);
dt:Net2013 = dt:Net2010 * (1 + dt:Change2013);
dt:Group = If(
dt:Percentile <= 0.1, "Bottom 10%",
dt:Percentile <= 0.9, "Middle 80%",
"Top 10%"
);
dt:Rank = If(
dt:Percentile <= 0.1, dt:Percentile / .1,
dt:Percentile <= 0.9, (dt:Percentile - .1) / .8,
(dt:Percentile - .9) / .1
);
);
補間は、"x"値を偶数パーセンタイル値に合わせることです。GroupとRankは、Graph Builderでのグループ化と色付けを制御するためのものです。BaseとNetの値は、Kaiserが行ったこととは少し違うことを試してみたかったからです。損失と利得の割合を見るだけでは、正味の効果を確認するのに十分ではありません。そのため、正味の効果を明示的に計算し、それらをグラフ化します。
注意 ：この計算は大きなもし ：パーセンタイルは両方の期間で同じであると仮定しています。つまり、2007〜2010年の期間の特定のパーセンタイルの人々は、2010〜2013年の期間のパーセンタイルにあります。そうであるかどうかはわかりませんが、最初の期間にパーセンタイルが大きく変化しすぎて、パーセンタイルがすべて一様な率で落ちることを考えれば、そうは思われません。
Base2007、Net2010、およびNet2013の3つの列を重ねた後、折れ線グラフを作成できます。GroupをGroup Xロールに、RankをColorロールに入れ、100％の参照線を追加してラベルを更新しました。
計算に基本値が必要であっても、実際には基本値を表示する必要はないことに気付きました（それらはすべて同じです）。Local Data Filterを使用してBase2007を除外し、Kaiserの例に従って中間グループを間引いた後、次のようになります。
チャーリー・シップ書きました：
これは素晴らしい仕事です。今朝起きて、私は考えた
私たちの個人的な財政のために似たようなもの（タイムプロット）。
