Rパッケージ {estatapi} による政府統計の総合窓口(e-Stat)が提供するAPIの利用

Reference
- https://github.com/yutannihilation/estatapi
- http://qiita.com/kazutan/items/9c0b2dd0f055fde45cda
- http://www.e-stat.go.jp/api/api-data/
Script
#Reference https://github.com/yutannihilation/estatapi
#Reference http://qiita.com/kazutan/items/9c0b2dd0f055fde45cda
#Reference http://www.e-stat.go.jp/api/api-data/
library("estatapi")
username<-Sys.info()['user']
pathInput<-paste("C:/Users/",username,"/Desktop/e-StatAPPID/",sep="")
folderPath<-file.path(pathInput)
setwd(folderPath)
tmp<-read.csv(file=dir(folderPath),header=F,as.is=T,skip=0,na.strings=c("", "NA"))
AppID<-tmp[1,2]
estat_getStatsList(appId=AppID,searchWord ="消費者物価指数")
buf<-estat_getMetaInfo (appId=AppID,statsDataId="0003036792")
buf
str(buf)
class(buf)
dataset<-estat_getStatsData(
  appId=AppID,
  statsDataId="0003036792", #平成22年基準消費者物価指数
  cdTab="3",                #前年同月比
  cdCat01="0001",           #総合
  cdArea="13A01"            #東京都区部
)
dataset
str(dataset)
class(dataset)
colnames(dataset)
dataset<-head(dataset,36)
plot(
  rev(dataset$value),
  xaxt='n',
  xlab = "",
  ylab="%",
  type="b",
  panel.first=grid(nx=NULL,ny=NULL,lty=2),
  main=paste(dataset$cat01_info[1],dataset$area_info[1],dataset$tab_info[1])  
)
axis(side=1,at=1:length(dataset$time_info),labels=rev(dataset$time_info),las=3)
Result
> estat_getStatsList(appId=AppID,searchWord ="消費者物価指数")
Source: local data frame [2 x 11]

         @id @code     $            STATISTICS_NAME   @no CYCLE SURVEY_DATE  OPEN_DATE SMALL_AREA OVERALL_TOTAL_NUMBER
       (chr) (chr) (chr)                      (chr) (chr) (chr)       (chr)      (chr)      (chr)                (chr)
1 0002050001    03  物価 平成17年基準消費者物価指数   001     -           0 2012-01-27          0             10785241
2 0003036792    03  物価 平成22年基準消費者物価指数     1     -           0 2016-03-25          0                    0
Variables not shown: UPDATED_DATE (chr)

> buf
$tab
Source: local data frame [5 x 4]

  @code                    @name @level @unit
  (chr)                    (chr)  (chr) (chr)
1     1                     指数           NA
2     2 前月比・前年比・前年度比            %
3     3               前年同月比            %
4     4         ウエイト(実数)           NA
5     5       ウエイト(万分比)           NA

$cat01
Source: local data frame [798 x 4]

   @code         @name @level @parentCode
   (chr)         (chr)  (chr)       (chr)
1   0001     0001 総合      1          NA
2   0002     0002 食料      1          NA
3   0003     0003 穀類      3        0002
4   0004     0004 米類      5        0003
5   1000 1000 うるち米      6        0004
6   1001 1001 国産米A      7        1000
7   1002 1002 国産米B      7        1000
8   1011   1011 もち米      6        0004
9   0005     0005 パン      5        0003
10  1021   1021 食パン      6        0005
..   ...           ...    ...         ...

$area
Source: local data frame [71 x 3]

   @code            @name @level
   (chr)            (chr)  (chr)
1  13A01 13100 東京都区部      1
2  00000             全国      1
3  00011 人口5万以上の市      1
4  00012           大都市      1
5  00013           中都市      1
6  00018         小都市A      1
7  00021   小都市B・町村      1
8  00042       北海道地方      1
9  00043         東北地方      1
10 00044         関東地方      1
..   ...              ...    ...

$time
Source: local data frame [647 x 4]

        @code      @name @level @parentCode
        (chr)      (chr)  (chr)       (chr)
1  2016000303  2016年3月      4  2016000103
2  2016000202  2016年2月      4  2016000103
3  2016000101  2016年1月      4  2016000103
4  2015100000   2015年度      1          NA
5  2015001212 2015年12月      4  2015001012
6  2015001111 2015年11月      4  2015001012
7  2015001010 2015年10月      4  2015001012
8  2015000909  2015年9月      4  2015000709
9  2015000808  2015年8月      4  2015000709
10 2015000707  2015年7月      4  2015000709
..        ...        ...    ...         ...

> str(buf)
List of 4
 $ tab  :Classes ‘tbl_df’, ‘tbl’ and 'data.frame':	5 obs. of  4 variables:
  ..$ @code : chr [1:5] "1" "2" "3" "4" ...
  ..$ @name : chr [1:5] "指数" "前月比・前年比・前年度比" "前年同月比" "ウエイト(実数)" ...
  ..$ @level: chr [1:5] "" "" "" "" ...
  ..$ @unit : chr [1:5] NA "%" "%" NA ...
 $ cat01:Classes ‘tbl_df’, ‘tbl’ and 'data.frame':	798 obs. of  4 variables:
  ..$ @code      : chr [1:798] "0001" "0002" "0003" "0004" ...
  ..$ @name      : chr [1:798] "0001 総合" "0002 食料" "0003 穀類" "0004 米類" ...
  ..$ @level     : chr [1:798] "1" "1" "3" "5" ...
  ..$ @parentCode: chr [1:798] NA NA "0002" "0003" ...
 $ area :Classes ‘tbl_df’, ‘tbl’ and 'data.frame':	71 obs. of  3 variables:
  ..$ @code : chr [1:71] "13A01" "00000" "00011" "00012" ...
  ..$ @name : chr [1:71] "13100 東京都区部" "全国" "人口5万以上の市" "大都市" ...
  ..$ @level: chr [1:71] "1" "1" "1" "1" ...
 $ time :Classes ‘tbl_df’, ‘tbl’ and 'data.frame':	647 obs. of  4 variables:
  ..$ @code      : chr [1:647] "2016000303" "2016000202" "2016000101" "2015100000" ...
  ..$ @name      : chr [1:647] "2016年3月" "2016年2月" "2016年1月" "2015年度" ...
  ..$ @level     : chr [1:647] "4" "4" "4" "1" ...
  ..$ @parentCode: chr [1:647] "2016000103" "2016000103" "2016000103" NA ...

> class(buf)
[1] "list"

> dataset
Source: local data frame [543 x 11]

    @tab @cat01 @area      @time @unit     $ value   tab_info cat01_info        area_info  time_info
   (chr)  (chr) (chr)      (chr) (chr) (chr) (dbl)      (chr)      (chr)            (chr)      (chr)
1      3   0001 13A01 2016000303     %  -0.1   0.1 前年同月比  0001 総合 13100 東京都区部  2016年3月
2      3   0001 13A01 2016000202     %   0.1   0.1 前年同月比  0001 総合 13100 東京都区部  2016年2月
3      3   0001 13A01 2016000101     %  -0.3   0.3 前年同月比  0001 総合 13100 東京都区部  2016年1月
4      3   0001 13A01 2015001212     %   0.1   0.1 前年同月比  0001 総合 13100 東京都区部 2015年12月
5      3   0001 13A01 2015001111     %   0.1   0.1 前年同月比  0001 総合 13100 東京都区部 2015年11月
6      3   0001 13A01 2015001010     %   0.1   0.1 前年同月比  0001 総合 13100 東京都区部 2015年10月
7      3   0001 13A01 2015000909     %  -0.1   0.1 前年同月比  0001 総合 13100 東京都区部  2015年9月
8      3   0001 13A01 2015000808     %   0.1   0.1 前年同月比  0001 総合 13100 東京都区部  2015年8月
9      3   0001 13A01 2015000707     %   0.1   0.1 前年同月比  0001 総合 13100 東京都区部  2015年7月
10     3   0001 13A01 2015000606     %   0.3   0.3 前年同月比  0001 総合 13100 東京都区部  2015年6月
..   ...    ...   ...        ...   ...   ...   ...        ...        ...              ...        ...

> str(dataset)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':	543 obs. of  11 variables:
 $ @tab      : chr  "3" "3" "3" "3" ...
 $ @cat01    : chr  "0001" "0001" "0001" "0001" ...
 $ @area     : chr  "13A01" "13A01" "13A01" "13A01" ...
 $ @time     : chr  "2016000303" "2016000202" "2016000101" "2015001212" ...
 $ @unit     : chr  "%" "%" "%" "%" ...
 $ $         : chr  "-0.1" "0.1" "-0.3" "0.1" ...
 $ value     : num  0.1 0.1 0.3 0.1 0.1 0.1 0.1 0.1 0.1 0.3 ...
 $ tab_info  : chr  "前年同月比" "前年同月比" "前年同月比" "前年同月比" ...
 $ cat01_info: chr  "0001 総合" "0001 総合" "0001 総合" "0001 総合" ...
 $ area_info : chr  "13100 東京都区部" "13100 東京都区部" "13100 東京都区部" "13100 東京都区部" ...
 $ time_info : chr  "2016年3月" "2016年2月" "2016年1月" "2015年12月" ...
> class(dataset)
[1] "tbl_df"     "tbl"        "data.frame"

> colnames(dataset)
 [1] "@tab"       "@cat01"     "@area"      "@time"      "@unit"      "$"          "value"      "tab_info"  
 [9] "cat01_info" "area_info"  "time_info" 

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移