INPUTしたらOUTPUT!

忘れっぽいんでメモっとく

Shinyで家計調査viewer作りました。

就職で上京する前、京都に住んでいた頃は毎週ラーメンを食べていたので京都はラーメン大国だと思い込んでいたけどリンク先のランキングではワースト3位という結果だった。。。(天下一品とかラーメン横綱とか行かないのか?)

ラーメン(外食)の消費量の都道府県ランキング(平成29年) | 地域の入れ物


おそらく以下が出典元で2人以上の世帯が対象となっているため学生はサンプルに含まれていないのかもしれない。

統計局ホームページ/家計調査(二人以上の世帯)<品目分類>各年の都道府県庁所在市別支出金額及び購入数量


一方、ぎょうざの消費量は宇都宮を抑えてトップ。(餃子の王将には行くのか?)

ぎょうざの消費量の都道府県ランキング(平成29年) | 地域の入れ物


他の支出にも興味が出たので上記の家計調査のデータをShinyで可視化してみた。各都道府県の県庁所在地毎の経年データを{geofacet}で表示することも考えたけど今回は平成29年分の結果を以下を参考にシンプルに可視化してみる。

qiita.com


結果はこちらから。 → https://kashitan.shinyapps.io/pref_stat/

ビールやワイン、日本酒、焼酎、ウイスキーを並べてみると以下のような結果に。

f:id:tak95:20190518224845p:plain:w300
ビール

f:id:tak95:20190518224951p:plain:w300
ワイン

f:id:tak95:20190518225018p:plain:w300
日本酒

f:id:tak95:20190518225044p:plain:w300
焼酎

f:id:tak95:20190518225105p:plain:w300
ウイスキー


福岡のワイン支出が個人的に意外。



本来は地域毎の物価の差なども考慮する必要があるかと思うが、簡易に作ってみたところ京都はコーヒーの支出もトップなど知らない発見があり意外と面白かったのでとりあえず公開してみる。対応分析などで似ている県庁所在地を探すのも興味深いかもしれない。

shiny::selectInput()の選択メニューを動的にしたり、shinyapps.ioでggplot2の日本語が化けたり色々ハマったところもあったけど機会があれば別に書く。