=============== skyline-pref-trans-fatty-acids-contribute-oil ===== ==== 県庁所在市別の主要食品トランス脂肪酸摂取量計に占める食用油寄与率の ==== スカイライン図・扇形散布図 ========================================================================== ================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0051.00,aaa // ケース始点,終点番号 ,★第１系列名 ,bbb // 空白で同一ケース範囲,★第２系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 162.78 44.24 164.17 49.46 143.72 34.86 149.12 35.32 152.52 47.31 168.62 42.98 147.78 48.54 159.85 46.97 156.94 46.20 156.92 36.59 168.54 40.51 173.47 33.65 160.05 30.64 176.53 38.84 155.10 30.89 141.20 29.28 152.20 36.02 141.48 32.05 172.58 48.28 186.98 60.94 160.18 34.91 154.26 37.59 157.98 32.98 157.21 39.43 174.58 36.00 187.69 37.76 171.01 31.07 190.92 36.14 191.39 42.53 166.42 34.87 172.04 40.73 173.31 45.58 162.49 30.64 179.72 40.13 169.12 41.91 173.35 42.85 162.06 30.57 176.05 45.09 148.66 37.71 152.39 31.09 151.73 38.33 169.22 43.60 157.08 39.05 166.73 39.12 144.44 40.79 175.01 56.68 147.40 46.40 166.13 38.34 142.48 31.23 176.62 37.70 180.38 42.83 ====================== $$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,合成用保存* 【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション