============ skyline-pref-trans-fatty-acids-contribute-margarine ===== ==== 県庁所在市別の主要食品トランス脂肪酸摂取量の【マーガリン】寄与率の ==== スカイライン図・扇形散布図 ========================================================================== ================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0051.00,aaa // ケース始点,終点番号 ,★第１系列名 ,bbb // 空白で同一ケース範囲,★第２系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 162.78 28.63 164.17 37.10 143.72 24.46 149.12 26.25 152.52 28.04 168.62 32.17 147.78 22.14 159.85 23.11 156.94 23.40 156.92 35.47 168.54 29.67 173.47 32.19 160.05 29.97 176.53 34.23 155.10 35.77 141.20 27.25 152.20 27.75 141.48 24.66 172.58 35.19 186.98 33.30 160.18 32.96 154.26 27.12 157.98 32.65 157.21 24.46 174.58 36.62 187.69 36.68 171.01 37.11 190.92 44.43 191.39 35.42 166.42 35.00 172.04 32.44 173.31 35.67 162.49 32.26 179.72 33.24 169.12 34.54 173.35 31.09 162.06 30.70 176.05 30.75 148.66 26.19 152.39 26.99 151.73 24.15 169.22 33.87 157.08 25.81 166.73 31.53 144.44 22.34 175.01 28.10 147.40 23.98 166.13 34.11 142.48 24.78 176.62 40.23 180.38 34.60 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て x,aaa // 分母　トランス脂肪酸摂取量【計】 y,bbb // 分子　【マーガリン】トランス脂肪酸摂取量 $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 s=(y/x*100) // 寄与率％ = 【マーガリン】トランス脂肪酸摂取量 / トランス脂肪酸摂取量【計】 *100 ................... P=:ci(y) // 個体識別文字列P作成 =pr*(x,y,s,P) // 数値プリント j=r.g(x) // xの大きい順の順位変量j x=pmt(x,j) // 並び替え（順序数変量jによる） y=pmt(y,j) s=pmt(s,j) P=pmt(P,j) .................... q=cum(x) // 分母変量xの累和 q<i>=x<1>+x<2>+...+x<i-1>+x<i> r=(q-x) // 直前までの累和 r<i>=x<1>+x<2>+...+x<i-1> =q<i>-x<i> .................... h=(20.0) // ★ h 目安となる寄与率20.0％　つまり0.2　　 .=(0,h) // スカイライン図上の寄与率20.0％の横線 y=0*x+h の右辺係数の関数「.」 +=(h/100,0) // 扇形散布図上の比率( h％ / 100)斜線 y=(h/100)*x+0 の右辺係数の関数「+」 z=(0*y) // すべてゼロの数値の変量zを作成（扇形散布図の原点に利用） ---------------- $r // 回帰分析 ,run,y=(x) // yを被説明（従属）変数，xを説明（独立）変数とする回帰の計測 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,001 // 変量sの目盛りを細かく1ポイントごとに y,001 x,001 $z // ゼロ軸表示 s // 変量sのゼロ軸表示 $p // プロット xy,s // 変量x y,別スケールでs ---------------------------------- $3 // ３次元図　スカイライン図 s,q, ,P,.,* // 縦軸s,横軸q,奥行軸なし,個体識別P,関数.,合成用保存* s,r, ,P,* // 縦軸s,横軸r,奥行軸なし,個体識P,合成用保存* // 合成 比率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 y,x, ,P,+,* // 縦軸y,横軸x,奥行軸なし,個体識別P,関数+,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存* 【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション