==== health-food-year-age-PIONET-Household ========== ==== PIO-NETの「健康食品」の年度別・契約当事者年齢別の相談件数と ==== 家計調査の「健康保持用摂取品」の年次別・世帯主年齢別の（１人当たり）消費支出額の ==== バブル散布図 ========================================================================== $$u // ユーザデータ・セクション -------------- PIO-NETの「健康食品」の年度別・契約当事者年齢別の相談件数データ ---------- $y // 年次データ属性コマンド 2004.00,2010.00,aaa // ケース（年次）始点,終点番号 ,★第１系列名 29歳以下相談件数 ,bbb // 空白で同一ケース範囲, ★第２系列名　30歳代相談件数 ,ccc // 空白で同一ケース範囲, ★第３系列名　40歳代相談件数 ,ddd // 空白で同一ケース範囲, ★第４系列名　50歳代相談件数 ,eee // 空白で同一ケース範囲, ★第５系列名　60歳代相談件数 ,fff // 空白で同一ケース範囲, ★第６系列名　70歳以上相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 2986 1479 1356 1864 2556 5245 2828 1530 1395 2018 2865 5937 2493 1246 1231 1768 2467 5477 2529 1498 1564 2034 2496 4893 2164 1583 1691 2061 2554 4661 1300 1140 1297 1542 2246 4604 956 825 1059 1335 2040 5175 ----- 家計調査の「健康保持用摂取品」の年次別・世帯主年齢別の（１人当たり）消費支出額データ ----- $y // 年次データ属性コマンド 2004.00,2010.00,AAA // ケース（年次）始点,終点番号 ,★第７系列名 29歳以下消費支出額 ,BBB // 空白で同一ケース範囲, ★第８系列名　30歳代消費支出額 ,CCC // 空白で同一ケース範囲, ★第９系列名　40歳代消費支出額 ,DDD // 空白で同一ケース範囲, ★第10系列名　50歳代消費支出額 ,EEE // 空白で同一ケース範囲, ★第11系列名　60歳代消費支出額 ,FFF // 空白で同一ケース範囲, 　 ★第12系列名　70歳以上消費支出額 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1218 1563 2366 5074 7964 8726 1232 1742 2907 5180 7953 11505 764 1404 2242 3875 6884 10045 1013 1172 2366 4574 6407 8121 673 1472 2357 4320 6451 7952 1094 1174 2170 3753 6539 8371 666 1460 2470 4670 6797 8915 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て a,aaa // 　29歳以下相談件数 b,bbb // 　30歳代相談件数 c,ccc // 　40歳代相談件数 d,ddd // 　50歳代相談件数 e,eee // 　60歳代相談件数 f,fff // 　70歳以上相談件数 A,AAA // 　29歳以下消費支出額 B,BBB // 　30歳代消費支出額 C,CCC // 　40歳代消費支出額 D,DDD // 　50歳代消費支出額 E,EEE // 　60歳代消費支出額 F,FFF // 　70歳以上消費支出額 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 g=(a,b,c,d,e,f) // 年齢別相談件数の連結変量 G=(A,B,C,D,E,F) // 年齢別消費支出額の連結変量 ................... p=:ci(a) // 【印字】文字列p作成 Q=(p,p,p,p,p,p) // 【印字】文字列pの連結変量Q Q,nam,:ci,Q=(p,p,p,p,p,p) // 【印字】連結変量Qが文字系列であることを示す変量名(先頭４文字:ci,）に変更 =pr*(a,b,c,d,e,f,A,B,C,D,E,F,p,g,G,Q) // 数値プリント ---------------- $r // 回帰分析 L,@"*,g=(G) // gを被説明（従属）変数とし，Gを説明（独立）変数とする回帰の係数ベクトルL ========================= $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） e,001 // 変量eの目盛りを細かく1ポイントごとに E,001 g,001 ------------------ $z // ゼロ軸表示 eE // 変量e,Eのゼロ軸表示 $p // プロット ef,EF // 変量e f,別スケールでE F ------------------ $z // ゼロ軸表示 // ブランクでゼロ軸表示の設定解除 ------------------ $c // 散布図コマンド 縦軸【相談件数】 横軸【消費支出額】 g,G,*,Q // 縦軸g,横軸G,回帰線*,個体識別Q ------------------ $3 // ３次元図 　縦軸【相談件数】 横軸【消費支出額】　奥行軸【年齢別】 a,A, ,p=a,L,* // 縦軸a,横軸A,奥行軸なし,個体識別p=バブルa,関数L,合成用保存* 【29歳以下】 b,B, ,p=b,* // 縦軸b,横軸B,奥行軸なし,個体識別p=バブルb,合成用保存* 【30歳代】 c,C, ,p=c,* // 縦軸c,横軸C,奥行軸なし,個体識別p=バブルc,合成用保存* 【40歳代】 d,D, ,p=d,* // 縦軸d,横軸D,奥行軸なし,個体識別p=バブルd,合成用保存* 【50歳代】 e,E, ,p=e,* // 縦軸e,横軸E,奥行軸なし,個体識別p=バブルe,合成用保存* 【60歳代】 f,F, ,p=f,* // 縦軸f,横軸F,奥行軸なし,個体識別p=バブルf,合成用保存* 【70歳以上】 // 合成 バブル散布図 ======================= $$ // 終了セクション .................... i=@.a(Y) //　全国人口調整相談件数Yの項目別の平均値@.aのスカラーi（区切りに利用） I=:ci(i)* //　スカラーiに文字 "*" の文字列変量I　作成（スカイライン区切りに利用） ?Y=(Y,i,Y,i,Y) //　全国人口調整相談件数　南関東分Y＋スカラーi＋東海分Y＋スカラーi＋近畿分Y の連結変量？Y ?K=(k,0,l,0,m) //　対全国比 南関東分k＋数値0＋東海分l＋数値0＋近畿分m の連結変量?K ?P=(p,I,p,I,p) //　文字列変量 南関東分p＋文字列I＋東海分p＋文字列I＋近畿分p の連結変量?P q=cum(?Y) // 分母変量?Yの累和 q<i>=?Y<1>+?Y<2>+...+?Y<i-1>+?Y<i> r=(q-?Y) // 直前までの累和 r<i>=?Y<1>+?Y<2>+...+?Y<i-1> =q<i>-?Y<i> .................... h=(100) // h 対全国比 100％　　 .=(0,h) // スカイライン図上の対全国比 100％の横線 y=0*x+h の右辺係数の関数「.」 +=(h/100,0) // 扇形散布図上の対全国比( h％ / 100)斜線 y=(h/100)*x+0 の右辺係数の関数「+」 z=(0*u) // すべてゼロの数値の変量zを作成（扇形散布図の原点に利用） ---------------- $r // 回帰分析 ,run,u=(Y) // uを被説明（従属）変数とし，Yを説明（独立）変数とする回帰 ,run,v=(Y) // vを被説明（従属）変数とし，Yを説明（独立）変数とする回帰 ,run,w=(Y) // wを被説明（従属）変数とし，Yを説明（独立）変数とする回帰 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） ?K,001 // 変量?Kの目盛りを細かく1ポイントごとに u,001 $z // ゼロ軸表示 ?Kuvw // 変量?K,u,v,wのゼロ軸表示 $p // プロット uvwY,klm // 変量u v w Y,別スケールでk l m ---------------------------------- $3 // ３次元図　スカイライン図【人口調整相談件数対全国比】分母：全国人口調整相談件数 ?K,q, ,?P,.,* // 縦軸?K,横軸q,奥行軸なし,個体識別?P,関数.,合成用保存* ?K,r, ,?P,* // 縦軸?K,横軸r,奥行軸なし,個体識別?P,合成用保存* // 合成 比率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 u,Y, ,p=u,+,* // 縦軸u,横軸Y,奥行軸なし,個体識別p=バブルu,関数+,合成用保存* 【南関東・全国人口調整相談件数】 z,z, ,p,* // 縦軸z,横軸z,奥行軸なし,個体識別p,合成用保存* 【原点】 v,Y, ,p=v,+,* // 縦軸v,横軸Y,奥行軸なし,個体識別p=バブルv,関数+,合成用保存* 【東海・全国人口調整相談件数】 z,z, ,p,* // 縦軸z,横軸z,奥行軸なし,個体識別p,合成用保存* 【原点】 w,Y, ,p=w,+,* // 縦軸w,横軸Y,奥行軸なし,個体識別p=バブルw,関数+,合成用保存* 【近畿・全国人口調整相談件数】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション