コンテストのレギュレーション

• Mizuho Mipotからの提供データをメインとして扱う
• 発表会、授賞式11月26日（土）
• 発表10分、質疑応答5分
• データ分析の目的や方法、結果を説明するスライドをPPTもしくはPDFで提出　
  11月13日(日) 23:59まで
• 本学学生で入手できるデータも扱えるが、提供データがメイン
• 出典や入手元を明記

データ

• データを見た上でMMC（クレジットカードの取引データ）に焦点を当てることに
  • Mizuhoがアクワイアリングを担当する加盟店からのデータかと思われる

処理

• CSVファイルをVS CodeにてShift-JIS形式で開く
• 開いたファイルをUTF-8形式で保存
• 保存されたファイルをR Studioに読み込み

実行コマンド

library(dplyr)
MMC_new <- filter(MMC_kekka, PREFNM == "東京都")
MMC_new1 <- filter(MMC_new, JYUSYO == "品川区")
MMC_new2 <- filter(MMC_new1, mipot_GYO_L == "コンビニ")
MMC_new2$TRDT_yyyymm = as.Date(MMC_new2$TRDT_yyyymm)
MMC_new2 <- ts(MMC_new2, start = 201506, end = 201808, frequency = 12)
ggplot(MMC_new2[-1,]$RATIO_CIF) #外れ値で[-1,]処理

品川区で「コンビニ」がクレカ決済総額を占める比率の時系列推移
2015年6月から2018年8月まで

Thank You