ベイズ統計モデリング 写経 3.6

## 3.6 実用的な関数

summary関数

``` r
# 1が100個、2が200個、3が300個並んだベクトル
x=c(rep(1,100), rep(2,200), rep(3,300))
summary(x)
```

    ##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    ##   1.000   2.000   2.500   2.333   3.000   3.000

factor型にsummaryを適用すると、各levelsの出現頻度を表示

``` r
xf = factor(x)
summary(xf)
```

    ##   1   2   3 
    ## 100 200 300

データフレームに対してsummary関数を適用すると、各列のクラスに応じたようやく情報が返される。

``` r
df = read.csv("c01.csv",fileEncoding = "cp932")
summary(df)
```

    ##  都道府県コード      都道府県名            元号              和暦.年.       西暦.年.         注             人口.総数.       
    ##  Length:982         Length:982         Length:982         Min.   : 2.0   Min.   :1920   Length:982         Length:982        
    ##  Class :character   Class :character   Class :character   1st Qu.:12.0   1st Qu.:1945   Class :character   Class :character  
    ##  Mode  :character   Mode  :character   Mode  :character   Median :22.0   Median :1970   Mode  :character   Mode  :character  
    ##                                                           Mean   :25.1   Mean   :1968                                        
    ##                                                           3rd Qu.:40.0   3rd Qu.:1995                                        
    ##                                                           Max.   :60.0   Max.   :2015                                        
    ##                                                           NA's   :2      NA's   :2                                           
    ##    人口.男.           人口.女.        
    ##  Length:982         Length:982        
    ##  Class :character   Class :character  
    ##  Mode  :character   Mode  :character  
    ##                                       
    ##                                       
    ##                                       
    ## 

head, tail,str関数

``` r
head(df)
```

    ##   都道府県コード 都道府県名 元号 和暦.年. 西暦.年. 注 人口.総数. 人口.男. 人口.女.
    ## 1             00       全国 大正        9     1920      55963053 28044185 27918868
    ## 2             01     北海道 大正        9     1920       2359183  1244322  1114861
    ## 3             02     青森県 大正        9     1920        756454   381293   375161
    ## 4             03     岩手県 大正        9     1920        845540   421069   424471
    ## 5             04     宮城県 大正        9     1920        961768   485309   476459
    ## 6             05     秋田県 大正        9     1920        898537   453682   444855

``` r
tail(df)
```

    ##                                                                                                                                       都道府県コード
    ## 977                                                                                                                                               44
    ## 978                                                                                                                                               45
    ## 979                                                                                                                                               46
    ## 980                                                                                                                                               47
    ## 981                                                                                               1)　沖縄県は調査されなかったため，含まれていない。
    ## 982 2)　長野県西筑摩群山口村と岐阜県中津川市の境界紛争地域人口（男39人，女34人）は全国に含まれているが，長野県及び岐阜県のいずれにも含まれていない。
    ##     都道府県名 元号 和暦.年. 西暦.年. 注 人口.総数. 人口.男. 人口.女.
    ## 977     大分県 平成       27     2015       1166338   551932   614406
    ## 978     宮崎県 平成       27     2015       1104069   519242   584827
    ## 979   鹿児島県 平成       27     2015       1648177   773061   875116
    ## 980     沖縄県 平成       27     2015       1433566   704619   728947
    ## 981                       NA       NA                                
    ## 982                       NA       NA

``` r
str(df)
```

    ## 'data.frame':    982 obs. of  9 variables:
    ##  $ 都道府県コード: chr  "00" "01" "02" "03" ...
    ##  $ 都道府県名    : chr  "全国" "北海道" "青森県" "岩手県" ...
    ##  $ 元号          : chr  "大正" "大正" "大正" "大正" ...
    ##  $ 和暦.年.      : int  9 9 9 9 9 9 9 9 9 9 ...
    ##  $ 西暦.年.      : int  1920 1920 1920 1920 1920 1920 1920 1920 1920 1920 ...
    ##  $ 注            : chr  "" "" "" "" ...
    ##  $ 人口.総数.    : chr  "55963053" "2359183" "756454" "845540" ...
    ##  $ 人口.男.      : chr  "28044185" "1244322" "381293" "421069" ...
    ##  $ 人口.女.      : chr  "27918868" "1114861" "375161" "424471" ...

ヘルプの呼び出し

``` r
?"aggregate"
```

``` r
df$人口.男. = as.numeric(df$人口.男.)
```

    ## Warning: 強制変換により NA が生成されました

``` r
df$人口.女. = as.numeric(df$人口.女.)
```

    ## Warning: 強制変換により NA が生成されました

``` r
df$人口.総数. = as.numeric(df$人口.総数.)
```

    ## Warning: 強制変換により NA が生成されました

``` r
df
```

    ##     都道府県コード 都道府県名 元号 和暦.年. 西暦.年. 注 人口.総数. 人口.男. 人口.女.
    ## 1               00       全国 大正        9     1920      55963053 28044185 27918868
    ## 2               01     北海道 大正        9     1920       2359183  1244322  1114861
    ## 3               02     青森県 大正        9     1920        756454   381293   375161
    ## 4               03     岩手県 大正        9     1920        845540   421069   424471
    ## 5               04     宮城県 大正        9     1920        961768   485309   476459
    ## 6               05     秋田県 大正        9     1920        898537   453682   444855
    ## 7               06     山形県 大正        9     1920        968925   478328   490597
    ## 8               07     福島県 大正        9     1920       1362750   673525   689225
    ## 9               08     茨城県 大正        9     1920       1350400   662128   688272
    ## 10              09     栃木県 大正        9     1920       1046479   514255   532224
    ## 11              10     群馬県 大正        9     1920       1052610   514106   538504
    ## 12              11     埼玉県 大正        9     1920       1319533   641161   678372
    ## 13              12     千葉県 大正        9     1920       1336155   656968   679187
    ## 14              13     東京都 大正        9     1920       3699428  1952989  1746439
    ## 15              14   神奈川県 大正        9     1920       1323390   689751   633639
    ## 16              15     新潟県 大正        9     1920       1776474   871532   904942
    ## 17              16     富山県 大正        9     1920        724276   354775   369501
    ## 18              17     石川県 大正        9     1920        747360   364375   382985
    ## 19              18     福井県 大正        9     1920        599155   293181   305974
    ## 20              19     山梨県 大正        9     1920        583453   290817   292636
    ## 21              20     長野県 大正        9     1920       1562722   758639   804083
    ## 22              21     岐阜県 大正        9     1920       1070407   536334   534073
    ## 23              22     静岡県 大正        9     1920       1550387   774169   776218
    ## 24              23     愛知県 大正        9     1920       2089762  1033860  1055902
    ## 25              24     三重県 大正        9     1920       1069270   525957   543313
    ## 26              25     滋賀県 大正        9     1920        651050   313737   337313
    ## 27              26     京都府 大正        9     1920       1287147   650780   636367
    ## 28              27     大阪府 大正        9     1920       2587847  1344846  1243001
    ## 29              28     兵庫県 大正        9     1920       2301799  1175426  1126373
    ## 30              29     奈良県 大正        9     1920        564607   280383   284224
    ## 31              30   和歌山県 大正        9     1920        750411   372058   378353
    ## 32              31     鳥取県 大正        9     1920        454675   222802   231873
    ## 33              32     島根県 大正        9     1920        714712   354959   359753
    ## 34              33     岡山県 大正        9     1920       1217698   605316   612382
    ## 35              34     広島県 大正        9     1920       1541905   775080   766825
    ## 36              35     山口県 大正        9     1920       1041013   521041   519972
    ## 37              36     徳島県 大正        9     1920        670212   331768   338444
    ## 38              37     香川県 大正        9     1920        677852   336195   341657
    ## 39              38     愛媛県 大正        9     1920       1046720   515389   531331
    ## 40              39     高知県 大正        9     1920        670895   332087   338808
    ## 41              40     福岡県 大正        9     1920       2188249  1116818  1071431
    ## 42              41     佐賀県 大正        9     1920        673895   329962   343933
    ## 43              42     長崎県 大正        9     1920       1136182   584234   551948
    ## 44              43     熊本県 大正        9     1920       1233233   602389   630844
    ## 45              44     大分県 大正        9     1920        860282   422708   437574
    ## 46              45     宮崎県 大正        9     1920        651097   326610   324487
    ## 47              46   鹿児島県 大正        9     1920       1415582   682243   733339
    ## 48              47     沖縄県 大正        9     1920        571572   274829   296743
    ## 49              00       全国 大正       14     1925      59736822 30013109 29723713
    ## 50              01     北海道 大正       14     1925       2498679  1305473  1193206
    ## 51              02     青森県 大正       14     1925        812977   408770   404207
    ## 52              03     岩手県 大正       14     1925        900984   448637   452347
    ## 53              04     宮城県 大正       14     1925       1044036   525191   518845
    ## 54              05     秋田県 大正       14     1925        936408   470737   465671
    ## 55              06     山形県 大正       14     1925       1027297   506303   520994
    ## 56              07     福島県 大正       14     1925       1437596   710606   726990
    ## 57              08     茨城県 大正       14     1925       1409092   693837   715255
    ## 58              09     栃木県 大正       14     1925       1090428   536259   554169
    ## 59              10     群馬県 大正       14     1925       1118858   548633   570225
    ## 60              11     埼玉県 大正       14     1925       1394461   682052   712409
    ## 61              12     千葉県 大正       14     1925       1399257   691242   708015
    ## 62              13     東京都 大正       14     1925       4485144  2387609  2097535
    ## 63              14   神奈川県 大正       14     1925       1416792   739699   677093
    ## 64              15     新潟県 大正       14     1925       1849807   913886   935921
    ## 65              16     富山県 大正       14     1925        749243   368593   380650
    ## 66              17     石川県 大正       14     1925        750854   365597   385257
    ## 67              18     福井県 大正       14     1925        597899   293039   304860
    ## 68              19     山梨県 大正       14     1925        600675   300289   300386
    ## 69              20     長野県 大正       14     1925       1629217   793875   835342
    ## 70              21     岐阜県 大正       14     1925       1132557   567837   564720
    ## 71              22     静岡県 大正       14     1925       1671217   835521   835696
    ## 72              23     愛知県 大正       14     1925       2319494  1150325  1169169
    ## 73              24     三重県 大正       14     1925       1107692   544752   562940
    ## 74              25     滋賀県 大正       14     1925        662412   321071   341341
    ## 75              26     京都府 大正       14     1925       1406382   717464   688918
    ## 76              27     大阪府 大正       14     1925       3059502  1594227  1465275
    ## 77              28     兵庫県 大正       14     1925       2454679  1239326  1215353
    ## 78              29     奈良県 大正       14     1925        583828   289770   294058
    ## 79              30   和歌山県 大正       14     1925        787511   392191   395320
    ## 80              31     鳥取県 大正       14     1925        472230   230580   241650
    ## 81              32     島根県 大正       14     1925        722402   359987   362415
    ## 82              33     岡山県 大正       14     1925       1238447   613619   624828
    ## 83              34     広島県 大正       14     1925       1617680   818266   799414
    ## 84              35     山口県 大正       14     1925       1094544   552793   541751
    ## 85              36     徳島県 大正       14     1925        689814   344550   345264
    ## 86              37     香川県 大正       14     1925        700308   351911   348397
    ## 87              38     愛媛県 大正       14     1925       1096366   542271   554095
    ## 88              39     高知県 大正       14     1925        687478   341687   345791
    ## 89              40     福岡県 大正       14     1925       2301668  1166165  1135503
    ## 90              41     佐賀県 大正       14     1925        684831   336223   348608
    ## 91              42     長崎県 大正       14     1925       1163945   593472   570473
    ## 92              43     熊本県 大正       14     1925       1296086   637753   658333
    ## 93              44     大分県 大正       14     1925        915136   451298   463838
    ## 94              45     宮崎県 大正       14     1925        691094   348088   343006
    ## 95              46   鹿児島県 大正       14     1925       1472193   713702   758491
    ## 96              47     沖縄県 大正       14     1925        557622   267933   289689
    ## 97              00       全国 昭和        5     1930      64450005 32390155 32059850
    ## 98              01     北海道 昭和        5     1930       2812335  1468540  1343795
    ## 99              02     青森県 昭和        5     1930        879914   441441   438473
    ## 100             03     岩手県 昭和        5     1930        975771   486925   488846
    ## 101             04     宮城県 昭和        5     1930       1142784   575335   567449
    ## 102             05     秋田県 昭和        5     1930        987706   495009   492697
    ## 103             06     山形県 昭和        5     1930       1080034   532377   547657
    ## 104             07     福島県 昭和        5     1930       1508150   742342   765808
    ## 105             08     茨城県 昭和        5     1930       1487097   734059   753038
    ## 106             09     栃木県 昭和        5     1930       1141737   562839   578898
    ## 107             10     群馬県 昭和        5     1930       1186080   581007   605073
    ## 108             11     埼玉県 昭和        5     1930       1459172   718779   740393
    ## 109             12     千葉県 昭和        5     1930       1470121   729439   740682
    ## 110             13     東京都 昭和        5     1930       5408678  2855323  2553355
    ## 111             14   神奈川県 昭和        5     1930       1619606   839309   780297
    ##  [ reached 'max' / getOption("max.print") -- omitted 871 rows ]

aggregate関数

``` r
aggregate(x=df$人口.総数. ,by=list(df$都道府県名, df$元号), FUN=median)
```

    ##                    Group.1 Group.2           x
    ## 1                                           NA
    ## 2                   愛知県    昭和   3987761.0
    ## 3                   愛媛県    昭和   1455799.5
    ## 4                   茨城県    昭和   2051589.0
    ## 5                   岡山県    昭和   1665776.5
    ## 6                   沖縄県    昭和          NA
    ## 7                   岩手県    昭和   1378473.0
    ## 8                   岐阜県    昭和   1611002.0
    ## 9                   宮崎県    昭和   1082873.5
    ## 10                  宮城県    昭和   1735130.0
    ## 11                  京都府    昭和   1964282.0
    ## 12                  熊本県    昭和   1743004.5
    ## 13                  群馬県    昭和   1603482.0
    ## 14                  広島県    昭和   2166543.5
    ## 15                  香川県    昭和    913382.0
    ## 16                  高知県    昭和    810555.5
    ## 17                  佐賀県    昭和    852021.0
    ## 18                  埼玉県    昭和   2346747.0
    ## 19                  三重県    昭和   1485318.0
    ## 20                  山形県    昭和   1256789.5
    ## 21                  山口県    昭和   1542227.5
    ## 22                  山梨県    昭和    782556.0
    ## 23                  滋賀県    昭和    857322.5
    ## 24                鹿児島県    昭和   1756886.5
    ## 25                  秋田県    昭和   1247704.0
    ## 26                  新潟県    昭和   2395434.5
    ## 27                神奈川県    昭和   3181336.5
    ## 28            人口集中地区    昭和  66878751.0
    ## 29  人口集中地区以外の地区    昭和  47910898.5
    ## 30                  青森県    昭和   1399557.0
    ## 31                  静岡県    昭和   2703353.0
    ## 32                  石川県    昭和    969802.5
    ## 33                  千葉県    昭和   2255535.0
    ## 34                    全国    昭和  92189108.5
    ## 35                  大阪府    昭和   5148856.0
    ## 36                  大分県    昭和   1188897.0
    ## 37                  長崎県    昭和   1581238.0
    ## 38                  長野県    昭和   1999498.5
    ## 39                  鳥取県    昭和    580582.0
    ## 40                  島根県    昭和    789712.0
    ## 41                  東京都    昭和   8860443.0
    ## 42                  徳島県    昭和    820188.0
    ## 43                  栃木県    昭和   1546967.5
    ## 44                  奈良県    昭和    780371.5
    ## 45                  富山県    昭和   1023293.0
    ## 46                  福井県    昭和    751465.5
    ## 47                  福岡県    昭和   3912187.5
    ## 48                  福島県    昭和   1977185.0
    ## 49                  兵庫県    昭和   3763717.0
    ## 50                  北海道    昭和   4906146.5
    ## 51                和歌山県    昭和   1004505.0
    ## 52                  愛知県    大正   2204628.0
    ## 53                  愛媛県    大正   1071543.0
    ## 54                  茨城県    大正   1379746.0
    ## 55                  岡山県    大正   1228072.5
    ## 56                  沖縄県    大正    564597.0
    ## 57                  岩手県    大正    873262.0
    ## 58                  岐阜県    大正   1101482.0
    ## 59                  宮崎県    大正    671095.5
    ## 60                  宮城県    大正   1002902.0
    ## 61                  京都府    大正   1346764.5
    ## 62                  熊本県    大正   1264659.5
    ## 63                  群馬県    大正   1085734.0
    ## 64                  広島県    大正   1579792.5
    ## 65                  香川県    大正    689080.0
    ## 66                  高知県    大正    679186.5
    ## 67                  佐賀県    大正    679363.0
    ## 68                  埼玉県    大正   1356997.0
    ## 69                  三重県    大正   1088481.0
    ## 70                  山形県    大正    998111.0
    ## 71                  山口県    大正   1067778.5
    ## 72                  山梨県    大正    592064.0
    ## 73                  滋賀県    大正    656731.0
    ## 74                鹿児島県    大正   1443887.5
    ## 75                  秋田県    大正    917472.5
    ## 76                  新潟県    大正   1813140.5
    ## 77                神奈川県    大正   1370091.0
    ## 78                  青森県    大正    784715.5
    ## 79                  静岡県    大正   1610802.0
    ## 80                  石川県    大正    749107.0
    ## 81                  千葉県    大正   1367706.0
    ## 82                    全国    大正  57849937.5
    ## 83                  大阪府    大正   2823674.5
    ## 84                  大分県    大正    887709.0
    ## 85                  長崎県    大正   1150063.5
    ## 86                  長野県    大正   1595969.5
    ## 87                  鳥取県    大正    463452.5
    ## 88                  島根県    大正    718557.0
    ## 89                  東京都    大正   4092286.0
    ## 90                  徳島県    大正    680013.0
    ## 91                  栃木県    大正   1068453.5
    ## 92                  奈良県    大正    574217.5
    ## 93                  富山県    大正    736759.5
    ## 94                  福井県    大正    598527.0
    ## 95                  福岡県    大正   2244958.5
    ## 96                  福島県    大正   1400173.0
    ## 97                  兵庫県    大正   2378239.0
    ## 98                  北海道    大正   2428931.0
    ## 99                和歌山県    大正    768961.0
    ## 100                 愛知県    平成   7149002.0
    ## 101                 愛媛県    平成   1480453.5
    ## 102                 茨城県    平成   2962650.0
    ## 103                 岡山県    平成   1948013.0
    ## 104                 沖縄県    平成   1339907.0
    ## 105                 岩手県    平成   1400610.5
    ## 106                 岐阜県    平成   2090544.0
    ## 107                 宮崎県    平成   1160974.5
    ## 108                 宮城県    平成   2341032.0
    ## 109                 京都府    平成   2632842.0
    ## 110                 熊本県    平成   1841279.5
    ## 111                 群馬県    平成   2005804.0
    ## 112                 広島県    平成   2868696.0
    ## 113                 香川県    平成   1017645.0
    ## 114                 高知県    平成    805120.5
    ## 115                 佐賀県    平成    871511.5
    ## 116                 埼玉県    平成   6996124.5
    ## 117                 三重県    平成   1848041.0
    ## 118                 山形県    平成   1230164.0
    ## 119                 山口県    平成   1510285.0
    ## 120                 山梨県    平成    872535.5
    ## 121                 滋賀県    平成   1361596.5
    ## 122               鹿児島県    平成   1769686.5
    ## 123                 秋田県    平成   1167390.0
    ## 124                 新潟県    平成   2453021.0
    ## 125               神奈川県    平成   8640785.5
    ## 126           人口集中地区    平成  83570548.5
    ## 127 人口集中地区以外の地区    平成  43776370.0
    ## 128                 青森県    平成   1456192.5
    ## 129                 静岡県    平成   3751348.0
    ## 130                 石川県    平成   1171907.0
    ## 131                 千葉県    平成   5991373.5
    ## 132                   全国    平成 127010294.0
    ## 133                 大阪府    平成   8811123.5
    ## 134                 大分県    平成   1215355.5
    ## 135                 長崎県    平成   1497577.5
    ## 136                 長野県    平成   2175305.5
    ## 137                 鳥取県    平成    610150.5
    ## 138                 島根県    平成    751863.0
    ## 139                 東京都    平成  12320351.0
    ## 140                 徳島県    平成    817029.0
    ## 141                 栃木県    平成   1994603.5
    ## 142                 奈良県    平成   1411019.0
    ## 143                 富山県    平成   1115945.0
    ## 144                 福井県    平成    822588.5
    ## 145                 福岡県    平成   5032803.5
    ## 146                 福島県    平成   2097688.5
    ## 147                 兵庫県    平成   5542687.0
    ## 148                 北海道    平成   5635692.0
    ## 149               和歌山県    平成   1052940.5

列名を指定

``` r
aggregate(x=list(人口=df$人口.総数.) ,by=list(都道府県名=df$都道府県名, 元号=df$元号), FUN=median)
```

    ##                 都道府県名 元号        人口
    ## 1                                        NA
    ## 2                   愛知県 昭和   3987761.0
    ## 3                   愛媛県 昭和   1455799.5
    ## 4                   茨城県 昭和   2051589.0
    ## 5                   岡山県 昭和   1665776.5
    ## 6                   沖縄県 昭和          NA
    ## 7                   岩手県 昭和   1378473.0
    ## 8                   岐阜県 昭和   1611002.0
    ## 9                   宮崎県 昭和   1082873.5
    ## 10                  宮城県 昭和   1735130.0
    ## 11                  京都府 昭和   1964282.0
    ## 12                  熊本県 昭和   1743004.5
    ## 13                  群馬県 昭和   1603482.0
    ## 14                  広島県 昭和   2166543.5
    ## 15                  香川県 昭和    913382.0
    ## 16                  高知県 昭和    810555.5
    ## 17                  佐賀県 昭和    852021.0
    ## 18                  埼玉県 昭和   2346747.0
    ## 19                  三重県 昭和   1485318.0
    ## 20                  山形県 昭和   1256789.5
    ## 21                  山口県 昭和   1542227.5
    ## 22                  山梨県 昭和    782556.0
    ## 23                  滋賀県 昭和    857322.5
    ## 24                鹿児島県 昭和   1756886.5
    ## 25                  秋田県 昭和   1247704.0
    ## 26                  新潟県 昭和   2395434.5
    ## 27                神奈川県 昭和   3181336.5
    ## 28            人口集中地区 昭和  66878751.0
    ## 29  人口集中地区以外の地区 昭和  47910898.5
    ## 30                  青森県 昭和   1399557.0
    ## 31                  静岡県 昭和   2703353.0
    ## 32                  石川県 昭和    969802.5
    ## 33                  千葉県 昭和   2255535.0
    ## 34                    全国 昭和  92189108.5
    ## 35                  大阪府 昭和   5148856.0
    ## 36                  大分県 昭和   1188897.0
    ## 37                  長崎県 昭和   1581238.0
    ## 38                  長野県 昭和   1999498.5
    ## 39                  鳥取県 昭和    580582.0
    ## 40                  島根県 昭和    789712.0
    ## 41                  東京都 昭和   8860443.0
    ## 42                  徳島県 昭和    820188.0
    ## 43                  栃木県 昭和   1546967.5
    ## 44                  奈良県 昭和    780371.5
    ## 45                  富山県 昭和   1023293.0
    ## 46                  福井県 昭和    751465.5
    ## 47                  福岡県 昭和   3912187.5
    ## 48                  福島県 昭和   1977185.0
    ## 49                  兵庫県 昭和   3763717.0
    ## 50                  北海道 昭和   4906146.5
    ## 51                和歌山県 昭和   1004505.0
    ## 52                  愛知県 大正   2204628.0
    ## 53                  愛媛県 大正   1071543.0
    ## 54                  茨城県 大正   1379746.0
    ## 55                  岡山県 大正   1228072.5
    ## 56                  沖縄県 大正    564597.0
    ## 57                  岩手県 大正    873262.0
    ## 58                  岐阜県 大正   1101482.0
    ## 59                  宮崎県 大正    671095.5
    ## 60                  宮城県 大正   1002902.0
    ## 61                  京都府 大正   1346764.5
    ## 62                  熊本県 大正   1264659.5
    ## 63                  群馬県 大正   1085734.0
    ## 64                  広島県 大正   1579792.5
    ## 65                  香川県 大正    689080.0
    ## 66                  高知県 大正    679186.5
    ## 67                  佐賀県 大正    679363.0
    ## 68                  埼玉県 大正   1356997.0
    ## 69                  三重県 大正   1088481.0
    ## 70                  山形県 大正    998111.0
    ## 71                  山口県 大正   1067778.5
    ## 72                  山梨県 大正    592064.0
    ## 73                  滋賀県 大正    656731.0
    ## 74                鹿児島県 大正   1443887.5
    ## 75                  秋田県 大正    917472.5
    ## 76                  新潟県 大正   1813140.5
    ## 77                神奈川県 大正   1370091.0
    ## 78                  青森県 大正    784715.5
    ## 79                  静岡県 大正   1610802.0
    ## 80                  石川県 大正    749107.0
    ## 81                  千葉県 大正   1367706.0
    ## 82                    全国 大正  57849937.5
    ## 83                  大阪府 大正   2823674.5
    ## 84                  大分県 大正    887709.0
    ## 85                  長崎県 大正   1150063.5
    ## 86                  長野県 大正   1595969.5
    ## 87                  鳥取県 大正    463452.5
    ## 88                  島根県 大正    718557.0
    ## 89                  東京都 大正   4092286.0
    ## 90                  徳島県 大正    680013.0
    ## 91                  栃木県 大正   1068453.5
    ## 92                  奈良県 大正    574217.5
    ## 93                  富山県 大正    736759.5
    ## 94                  福井県 大正    598527.0
    ## 95                  福岡県 大正   2244958.5
    ## 96                  福島県 大正   1400173.0
    ## 97                  兵庫県 大正   2378239.0
    ## 98                  北海道 大正   2428931.0
    ## 99                和歌山県 大正    768961.0
    ## 100                 愛知県 平成   7149002.0
    ## 101                 愛媛県 平成   1480453.5
    ## 102                 茨城県 平成   2962650.0
    ## 103                 岡山県 平成   1948013.0
    ## 104                 沖縄県 平成   1339907.0
    ## 105                 岩手県 平成   1400610.5
    ## 106                 岐阜県 平成   2090544.0
    ## 107                 宮崎県 平成   1160974.5
    ## 108                 宮城県 平成   2341032.0
    ## 109                 京都府 平成   2632842.0
    ## 110                 熊本県 平成   1841279.5
    ## 111                 群馬県 平成   2005804.0
    ## 112                 広島県 平成   2868696.0
    ## 113                 香川県 平成   1017645.0
    ## 114                 高知県 平成    805120.5
    ## 115                 佐賀県 平成    871511.5
    ## 116                 埼玉県 平成   6996124.5
    ## 117                 三重県 平成   1848041.0
    ## 118                 山形県 平成   1230164.0
    ## 119                 山口県 平成   1510285.0
    ## 120                 山梨県 平成    872535.5
    ## 121                 滋賀県 平成   1361596.5
    ## 122               鹿児島県 平成   1769686.5
    ## 123                 秋田県 平成   1167390.0
    ## 124                 新潟県 平成   2453021.0
    ## 125               神奈川県 平成   8640785.5
    ## 126           人口集中地区 平成  83570548.5
    ## 127 人口集中地区以外の地区 平成  43776370.0
    ## 128                 青森県 平成   1456192.5
    ## 129                 静岡県 平成   3751348.0
    ## 130                 石川県 平成   1171907.0
    ## 131                 千葉県 平成   5991373.5
    ## 132                   全国 平成 127010294.0
    ## 133                 大阪府 平成   8811123.5
    ## 134                 大分県 平成   1215355.5
    ## 135                 長崎県 平成   1497577.5
    ## 136                 長野県 平成   2175305.5
    ## 137                 鳥取県 平成    610150.5
    ## 138                 島根県 平成    751863.0
    ## 139                 東京都 平成  12320351.0
    ## 140                 徳島県 平成    817029.0
    ## 141                 栃木県 平成   1994603.5
    ## 142                 奈良県 平成   1411019.0
    ## 143                 富山県 平成   1115945.0
    ## 144                 福井県 平成    822588.5
    ## 145                 福岡県 平成   5032803.5
    ## 146                 福島県 平成   2097688.5
    ## 147                 兵庫県 平成   5542687.0
    ## 148                 北海道 平成   5635692.0
    ## 149               和歌山県 平成   1052940.5

チルダ式での指定

``` r
aggregate(人口.総数. ~ 都道府県名+元号,data=df, FUN=median)
```

    ##                 都道府県名 元号  人口.総数.
    ## 1                   愛知県 昭和   3987761.0
    ## 2                   愛媛県 昭和   1455799.5
    ## 3                   茨城県 昭和   2051589.0
    ## 4                   岡山県 昭和   1665776.5
    ## 5                   沖縄県 昭和    914937.0
    ## 6                   岩手県 昭和   1378473.0
    ## 7                   岐阜県 昭和   1611002.0
    ## 8                   宮崎県 昭和   1082873.5
    ## 9                   宮城県 昭和   1735130.0
    ## 10                  京都府 昭和   1964282.0
    ## 11                  熊本県 昭和   1743004.5
    ## 12                  群馬県 昭和   1603482.0
    ## 13                  広島県 昭和   2166543.5
    ## 14                  香川県 昭和    913382.0
    ## 15                  高知県 昭和    810555.5
    ## 16                  佐賀県 昭和    852021.0
    ## 17                  埼玉県 昭和   2346747.0
    ## 18                  三重県 昭和   1485318.0
    ## 19                  山形県 昭和   1256789.5
    ## 20                  山口県 昭和   1542227.5
    ## 21                  山梨県 昭和    782556.0
    ## 22                  滋賀県 昭和    857322.5
    ## 23                鹿児島県 昭和   1756886.5
    ## 24                  秋田県 昭和   1247704.0
    ## 25                  新潟県 昭和   2395434.5
    ## 26                神奈川県 昭和   3181336.5
    ## 27            人口集中地区 昭和  66878751.0
    ## 28  人口集中地区以外の地区 昭和  47910898.5
    ## 29                  青森県 昭和   1399557.0
    ## 30                  静岡県 昭和   2703353.0
    ## 31                  石川県 昭和    969802.5
    ## 32                  千葉県 昭和   2255535.0
    ## 33                    全国 昭和  92189108.5
    ## 34                  大阪府 昭和   5148856.0
    ## 35                  大分県 昭和   1188897.0
    ## 36                  長崎県 昭和   1581238.0
    ## 37                  長野県 昭和   1999498.5
    ## 38                  鳥取県 昭和    580582.0
    ## 39                  島根県 昭和    789712.0
    ## 40                  東京都 昭和   8860443.0
    ## 41                  徳島県 昭和    820188.0
    ## 42                  栃木県 昭和   1546967.5
    ## 43                  奈良県 昭和    780371.5
    ## 44                  富山県 昭和   1023293.0
    ## 45                  福井県 昭和    751465.5
    ## 46                  福岡県 昭和   3912187.5
    ## 47                  福島県 昭和   1977185.0
    ## 48                  兵庫県 昭和   3763717.0
    ## 49                  北海道 昭和   4906146.5
    ## 50                和歌山県 昭和   1004505.0
    ## 51                  愛知県 大正   2204628.0
    ## 52                  愛媛県 大正   1071543.0
    ## 53                  茨城県 大正   1379746.0
    ## 54                  岡山県 大正   1228072.5
    ## 55                  沖縄県 大正    564597.0
    ## 56                  岩手県 大正    873262.0
    ## 57                  岐阜県 大正   1101482.0
    ## 58                  宮崎県 大正    671095.5
    ## 59                  宮城県 大正   1002902.0
    ## 60                  京都府 大正   1346764.5
    ## 61                  熊本県 大正   1264659.5
    ## 62                  群馬県 大正   1085734.0
    ## 63                  広島県 大正   1579792.5
    ## 64                  香川県 大正    689080.0
    ## 65                  高知県 大正    679186.5
    ## 66                  佐賀県 大正    679363.0
    ## 67                  埼玉県 大正   1356997.0
    ## 68                  三重県 大正   1088481.0
    ## 69                  山形県 大正    998111.0
    ## 70                  山口県 大正   1067778.5
    ## 71                  山梨県 大正    592064.0
    ## 72                  滋賀県 大正    656731.0
    ## 73                鹿児島県 大正   1443887.5
    ## 74                  秋田県 大正    917472.5
    ## 75                  新潟県 大正   1813140.5
    ## 76                神奈川県 大正   1370091.0
    ## 77                  青森県 大正    784715.5
    ## 78                  静岡県 大正   1610802.0
    ## 79                  石川県 大正    749107.0
    ## 80                  千葉県 大正   1367706.0
    ## 81                    全国 大正  57849937.5
    ## 82                  大阪府 大正   2823674.5
    ## 83                  大分県 大正    887709.0
    ## 84                  長崎県 大正   1150063.5
    ## 85                  長野県 大正   1595969.5
    ## 86                  鳥取県 大正    463452.5
    ## 87                  島根県 大正    718557.0
    ## 88                  東京都 大正   4092286.0
    ## 89                  徳島県 大正    680013.0
    ## 90                  栃木県 大正   1068453.5
    ## 91                  奈良県 大正    574217.5
    ## 92                  富山県 大正    736759.5
    ## 93                  福井県 大正    598527.0
    ## 94                  福岡県 大正   2244958.5
    ## 95                  福島県 大正   1400173.0
    ## 96                  兵庫県 大正   2378239.0
    ## 97                  北海道 大正   2428931.0
    ## 98                和歌山県 大正    768961.0
    ## 99                  愛知県 平成   7149002.0
    ## 100                 愛媛県 平成   1480453.5
    ## 101                 茨城県 平成   2962650.0
    ## 102                 岡山県 平成   1948013.0
    ## 103                 沖縄県 平成   1339907.0
    ## 104                 岩手県 平成   1400610.5
    ## 105                 岐阜県 平成   2090544.0
    ## 106                 宮崎県 平成   1160974.5
    ## 107                 宮城県 平成   2341032.0
    ## 108                 京都府 平成   2632842.0
    ## 109                 熊本県 平成   1841279.5
    ## 110                 群馬県 平成   2005804.0
    ## 111                 広島県 平成   2868696.0
    ## 112                 香川県 平成   1017645.0
    ## 113                 高知県 平成    805120.5
    ## 114                 佐賀県 平成    871511.5
    ## 115                 埼玉県 平成   6996124.5
    ## 116                 三重県 平成   1848041.0
    ## 117                 山形県 平成   1230164.0
    ## 118                 山口県 平成   1510285.0
    ## 119                 山梨県 平成    872535.5
    ## 120                 滋賀県 平成   1361596.5
    ## 121               鹿児島県 平成   1769686.5
    ## 122                 秋田県 平成   1167390.0
    ## 123                 新潟県 平成   2453021.0
    ## 124               神奈川県 平成   8640785.5
    ## 125           人口集中地区 平成  83570548.5
    ## 126 人口集中地区以外の地区 平成  43776370.0
    ## 127                 青森県 平成   1456192.5
    ## 128                 静岡県 平成   3751348.0
    ## 129                 石川県 平成   1171907.0
    ## 130                 千葉県 平成   5991373.5
    ## 131                   全国 平成 127010294.0
    ## 132                 大阪府 平成   8811123.5
    ## 133                 大分県 平成   1215355.5
    ## 134                 長崎県 平成   1497577.5
    ## 135                 長野県 平成   2175305.5
    ## 136                 鳥取県 平成    610150.5
    ## 137                 島根県 平成    751863.0
    ## 138                 東京都 平成  12320351.0
    ## 139                 徳島県 平成    817029.0
    ## 140                 栃木県 平成   1994603.5
    ## 141                 奈良県 平成   1411019.0
    ## 142                 富山県 平成   1115945.0
    ## 143                 福井県 平成    822588.5
    ## 144                 福岡県 平成   5032803.5
    ## 145                 福島県 平成   2097688.5
    ## 146                 兵庫県 平成   5542687.0
    ## 147                 北海道 平成   5635692.0
    ## 148               和歌山県 平成   1052940.5

テーブル関数

``` r
table(list(都道府県名=df$都道府県名,元号=df$元号))
```

    ##                         元号
    ## 都道府県名             昭和 大正 平成
    ##                           2    0    0    0
    ##   愛知県                  0   12    2    6
    ##   愛媛県                  0   12    2    6
    ##   茨城県                  0   12    2    6
    ##   岡山県                  0   12    2    6
    ##   沖縄県                  0   12    2    6
    ##   岩手県                  0   12    2    6
    ##   岐阜県                  0   12    2    6
    ##   宮崎県                  0   12    2    6
    ##   宮城県                  0   12    2    6
    ##   京都府                  0   12    2    6
    ##   熊本県                  0   12    2    6
    ##   群馬県                  0   12    2    6
    ##   広島県                  0   12    2    6
    ##   香川県                  0   12    2    6
    ##   高知県                  0   12    2    6
    ##   佐賀県                  0   12    2    6
    ##   埼玉県                  0   12    2    6
    ##   三重県                  0   12    2    6
    ##   山形県                  0   12    2    6
    ##   山口県                  0   12    2    6
    ##   山梨県                  0   12    2    6
    ##   滋賀県                  0   12    2    6
    ##   鹿児島県                0   12    2    6
    ##   秋田県                  0   12    2    6
    ##   新潟県                  0   12    2    6
    ##   神奈川県                0   12    2    6
    ##   人口集中地区            0    4    0    6
    ##   人口集中地区以外の地区  0    4    0    6
    ##   青森県                  0   12    2    6
    ##   静岡県                  0   12    2    6
    ##   石川県                  0   12    2    6
    ##   千葉県                  0   12    2    6
    ##   全国                    0   12    2    6
    ##   大阪府                  0   12    2    6
    ##   大分県                  0   12    2    6
    ##   長崎県                  0   12    2    6
    ##   長野県                  0   12    2    6
    ##   鳥取県                  0   12    2    6
    ##   島根県                  0   12    2    6
    ##   東京都                  0   12    2    6
    ##   徳島県                  0   12    2    6
    ##   栃木県                  0   12    2    6
    ##   奈良県                  0   12    2    6
    ##   富山県                  0   12    2    6
    ##   福井県                  0   12    2    6
    ##   福岡県                  0   12    2    6
    ##   福島県                  0   12    2    6
    ##   兵庫県                  0   12    2    6
    ##   北海道                  0   12    2    6
    ##   和歌山県                0   12    2    6

apply関数

``` r
a = array(1:24, dim=c(3,4,2),
          dimnames = list(
            RowDimName = c("r1", "r2","r3"),
            ColDimName = c("c1", "c2","c3","c4"),
            LayDimName = c("l1", "l2")
          ))
a
```

    ## , , LayDimName = l1
    ## 
    ##           ColDimName
    ## RowDimName c1 c2 c3 c4
    ##         r1  1  4  7 10
    ##         r2  2  5  8 11
    ##         r3  3  6  9 12
    ## 
    ## , , LayDimName = l2
    ## 
    ##           ColDimName
    ## RowDimName c1 c2 c3 c4
    ##         r1 13 16 19 22
    ##         r2 14 17 20 23
    ##         r3 15 18 21 24

2次元と3次元を維持しつつ、ほかの次元を圧縮する

``` r
apply(a, MARGIN = c(2,3),FUN=sum)
```

    ##           LayDimName
    ## ColDimName l1 l2
    ##         c1  6 42
    ##         c2 15 51
    ##         c3 24 60
    ##         c4 33 69

パッケージのインストール 1回だけでよい

``` r
install.packages("reshape2")
```

    ## Error in install.packages : Updating loaded packages

パッケージの読み込み

``` r
library(reshape2)
```

reshape2のmelt関数でばらばらにする

``` r
melt(a)
```

    ##    RowDimName ColDimName LayDimName value
    ## 1          r1         c1         l1     1
    ## 2          r2         c1         l1     2
    ## 3          r3         c1         l1     3
    ## 4          r1         c2         l1     4
    ## 5          r2         c2         l1     5
    ## 6          r3         c2         l1     6
    ## 7          r1         c3         l1     7
    ## 8          r2         c3         l1     8
    ## 9          r3         c3         l1     9
    ## 10         r1         c4         l1    10
    ## 11         r2         c4         l1    11
    ## 12         r3         c4         l1    12
    ## 13         r1         c1         l2    13
    ## 14         r2         c1         l2    14
    ## 15         r3         c1         l2    15
    ## 16         r1         c2         l2    16
    ## 17         r2         c2         l2    17
    ## 18         r3         c2         l2    18
    ## 19         r1         c3         l2    19
    ## 20         r2         c3         l2    20
    ## 21         r3         c3         l2    21
    ## 22         r1         c4         l2    22
    ## 23         r2         c4         l2    23
    ## 24         r3         c4         l2    24