の続きです。
今回は2007年度と2015年度のデータを比較してみたいと思います。
まず、20015年度 - 2007年度というデータをつくらないとですね。
tapply関数で上のようにして作成しました。tapply関数で作ると、都道府県の順番が揃います。
2007年度 vs 2015年度の散布図を描いてみましょう。
左がPratio(15-64歳人口割合), 真ん中がShotoku(1人当り県民所得), 右がEnergy(1人当り最終エネルギー消費量)ですね。X軸が2007年度、Y軸が2015年度です。基本的に比例関係にあります。
それでは、それぞれ変化幅を計算してsort関数を使って小さい順に並べてみます。
まずは、Pratioの変化です。
すべての都道府県でマイナスです。つまり、すべての都道府県で15-64歳人口割合が減少しました。こどもの数は増えていないですから、老人の割合が増えたのでしょう。
Shotokuはこうなりました。
東京都は53万1千円減少です。岩手県は36万2千円増えたのですね。
Energyはどうでしょうか？
全ての都道府県で減少しています。低エネルギー消費になっているということですね。山口県が一番減少しています。38.03GJ減っています。
hist関数でヒストグラムを描いてみます。
真ん中のdiffShと右のdiffEnは左にポツンと離れ小島がありますね。diffShは東京都、diffEnは山口県が離れ小島です。
散布図マトリックスを描いてみます。
相関関係はなさそうな感じです。
cor関数で相関マトリックスもつくりましょう。
diffPrとdiffShの相関は0.058, diffPrとdiffEnの相関は0.270, diffShとdiffEnの相関は0.053とあまり相関はないようですね。
今回は以上です。
