q1 <- sample(c(1, 2, 3, NA),
size = 100,
replace = T,
prob = c(.34, .40, .23, .03))超初心者向けのRガイド
d. 一つのカテゴリカル変数の度数分布表
1 全体の構成
2 一つのカテゴリカル変数の度数分布表
調査結果の報告においては，高度な分析をするだけではなく，収集した情報の基本的な集計結果を示す事も重要になる。
しかしRでは，度数分布表（単純集計表などとも呼ばれる）や分割表（連関表，クロス表）について，必要最低限の結果を出力するコマンドが基本で，色々な情報を纏めて提示する為には自分で少し手を加える必要がある。
以下では，学部学生の演習レヴェルであると便利だと思われる作表方法を紹介する。
2.1 模擬データの作成
自分で分析できる調査データを持たない学習者も多いだろうから，あたかも社会調査によって得たかの様な模擬データをRで簡単に作成する方法から紹介しよう。
ここでの目的から，二つのカテゴリカル変数を生成する事にする。
まずは以下のコマンドで一つのカテゴリカル変数模擬データを生成してみる。
sample( )関数は，無作為抽出（確率抽出）する為の関数で，抽出元となるヴェクトル，抽出回数size，復元抽出か非復元抽出かreplace，抽出する時の確率probを指定する事が出来る。上の例では，c(1, 2, 3, NA)から100回復元抽出を，それぞれの値が抽出される確率を.34，.40，.23，.03として行え，と云う意味になっている。sizeに与える数字は先に変数として値を与えておく事も出来る。社会調査データらしくする為に，わざわざ欠損値NAも多少発生する様にしている。
もしデータ入力において欠損値が88や99の値でq1に入力されている場合は，後で欠損値をNAに置き換える必要がある。
以下は，二つの変数（5件法と4件法，無回答の99混じり）を発生させて，それを（敢えて）データ・フレイムにしている。
何故敢えてデータ・フレイムにしているかと言えば，通常社会調査データはcsvファイルでデータを作成し，それをデータ・フレイムとしてRに読み込んで分析するので，それに近い状態を再現する為である。
n <- 125
q1 <- sample(c(1, 2, 3, 4, 5, 99),
size = n,
replace = T,
prob = c(.25, .15, .20, .20, .15, .05))
q2 <- sample(c(1, 2, 3, 4, 99),
size = n,
replace = T,
prob = c(.30, .20, .20, .25, .05))
d01 <- data.frame(q1, q2)それぞれの変数にアクセスする為には，d01$q1，d01$q2とする事になる。
2.2 欠損値の処理
分析に使用する変数については，まず最初に度数分布を確認するのが良い。
一変数の度数分布表を作成するコマンド（関数）は，table( )である。
この関数の引数に変数を渡すと，NAを除いた集計結果を出力する。NAも集計結果に表示させる為には，useNA=“ifany” または useNA=“always” と云うオプションを付ける。
ここではq1とq2の度数分布を纏めて確認してみる。最初に分布を確認する際には，useNA=“always” とする事を推奨する。
また，table( ) 関数を使用する時は，with( ) 関数を併用すると便利である。
ここで，99と云う無効回答コードが見つかるので，これをNAにして後の分析から自動的に除外される様にする（欠損値処理）。
変換した結果は必ず新変数として保存する事を推奨する。Rは大文字と小文字を別のものとして扱うのでそれを利用している。
社会調査データでよくある，「得点（値）を反転させる」と云う変換についても例示しておく（q2 → R2）。
d01$Q1 <- c(1:5)[d01$q1]
d01$Q2 <- c(1:4)[d01$q1]
d01$R2 <- c(4:1)[d01$q1] # 値の反転この変換法は工夫次第でかなり汎用性が高い。
2.3 一つのカテゴリカル変数の度数分布表の作成
集計結果自体をオブジェクトに格納（保存）する事が出来る。オブジェクトに格納しておくと，一度表示して終わりではなく，その後幾らでも再利用出来るので非常に便利である。なるべく集計結果や分析結果をオブジェクト保存する習慣を付けよう。
table(d01$Q1)
1 2 3 4 5
25 17 35 30 13 table(d01$Q1, useNA = "ifany")
1 2 3 4 5 <NA>
25 17 35 30 13 5 しかしこれでは度数だけである。
度数分布表（単純集計表）は通常，累積度数や相対度数（％）なども纏めて表示される。
欠損値の有無別に相対度数を表示する事も多い。
それらを付加した表を作成する事を目指す。
ヴェクトルに対して，累積和を求める関数が cumsum( ) である。
また，ヴェクトルに対して割合（比率）を求める関数が prop.table( ) である。
基本の度数分布表freqを作成した後，累積度数のヴェクトル，比率のヴェクトルを作成する例を示す。
それぞれcumfreq，percentと云う名前を付けてオブジェクトとして格納し，最後にその結果を表示させている。
freq <- table(d01$Q1)
cumfreq <- cumsum(freq)
percent <- prop.table(freq)freq
1 2 3 4 5
25 17 35 30 13 cumfreq 1 2 3 4 5
25 42 77 107 120 percent
1 2 3 4 5
0.2083333 0.1416667 0.2916667 0.2500000 0.1083333 相対度数のヴェクトルpercentに関数 cumsum( ) を適用すると，累積相対度数のヴェクトルを作成出来る。
cum.pcnt <- cumsum(percent) 次の様に，列columnを結合bindする関数 cbind( ) を使うと，これらの結果を一纏めに表示出来る。
これもオブジェクトに格納したいところだが，後でもう少し手を加えるのでここでは表示だけで済ませる。
cbind(freq, cumfreq, percent, cum.pcnt) freq cumfreq percent cum.pcnt
1 25 25 0.2083333 0.2083333
2 17 42 0.1416667 0.3500000
3 35 77 0.2916667 0.6416667
4 30 107 0.2500000 0.8916667
5 13 120 0.1083333 1.0000000同じ事を，欠損値を含んだ度数分布表についても行う。
freqT <- table(d01$Q1, useNA = "always")
cumfreqT <- cumsum(freqT)
percentT <- prop.table(freqT)
cum.pcntT <- cumsum(percentT)
cbind(freqT, cumfreqT, percentT, cum.pcntT) freqT cumfreqT percentT cum.pcntT
1 25 25 0.200 0.200
2 17 42 0.136 0.336
3 35 77 0.280 0.616
4 30 107 0.240 0.856
5 13 120 0.104 0.960
<NA> 5 125 0.040 1.000 最後に，以上の結果から，必要なものだけを纏めてラベルも付けて一つの表にしよう。
NAを含む度数分布表と含まない度数分布表では行の数（ヴェクトルの長さ）が1つ異なるので，最初にそれを調整している。
percent <- c(percent, NA); cum.pcnt <- c(cum.pcnt, NA)
freq.table <- cbind("度数" = freqT,
"累積度数" = cumfreqT,
"相対度数" = percentT,
"累積相対度数" = cum.pcntT,
"有効相対度数" = percent,
"有効累積相対度数" = cum.pcnt)
freq.table 度数 累積度数 相対度数 累積相対度数 有効相対度数 有効累積相対度数
1 25 25 0.200 0.200 0.2083333 0.2083333
2 17 42 0.136 0.336 0.1416667 0.3500000
3 35 77 0.280 0.616 0.2916667 0.6416667
4 30 107 0.240 0.856 0.2500000 0.8916667
5 13 120 0.104 0.960 0.1083333 1.0000000
<NA> 5 125 0.040 1.000 NA NA2.3.1 度数分布表スクリプトまとめ
以上から必要な部分だけを抜き出すと以下の通りである。これを，度数分布表を作成したい変数ごとに使いまわせば良い。最初の二行の d01$Q1 の部分だけを書き換えれば良い。
freq <- table(d01$Q1)
freqT <- table(d01$Q1, useNA = "always")
percent <- prop.table(freq)
cum.pcnt <- cumsum(percent)
percent <- c(percent, NA)
cum.pcnt <- c(cum.pcnt, NA)
cumfreqT <- cumsum(freqT)
percentT <- prop.table(freqT)
cum.pcntT <- cumsum(percentT)
freq.table <- cbind("度数" = freqT,
"累積度数" = cumfreqT,
"相対度数" = percentT,
"累積相対度数" = cum.pcntT,
"有効相対度数" = percent,
"有効累積相対度数" = cum.pcnt)
freq.table 度数 累積度数 相対度数 累積相対度数 有効相対度数 有効累積相対度数
1 25 25 0.200 0.200 0.2083333 0.2083333
2 17 42 0.136 0.336 0.1416667 0.3500000
3 35 77 0.280 0.616 0.2916667 0.6416667
4 30 107 0.240 0.856 0.2500000 0.8916667
5 13 120 0.104 0.960 0.1083333 1.0000000
<NA> 5 125 0.040 1.000 NA NA2.3.2 オリジナル関数として作成
しかしいちいちこれを全て変数ごとにコピー＆ペーストして使用するのは手間がかかると云う場合には，「Rでは自分で新しい関数を自由に定義出来る」と云う便利な機能を利用すると良い。
自作関数の定義は，初心者が多用すると却って混乱する懸念もあるが，こうした長いスクリプトを繰り返し利用する事が分かっている場合は使ってみても良いだろう。
以下では，freq.table( ) と云う関数名で定義している。
freq.table <- function (x) {
freq <- table(x)
freqT <- table(x, useNA = "always")
percent <- prop.table(freq)
cum.pcnt <- cumsum(percent)
percent <- c(percent, NA)
cum.pcnt <- c(cum.pcnt, NA)
cumfreqT <- cumsum(freqT)
percentT <- prop.table(freqT)
cum.pcntT <- cumsum(percentT)
output <- cbind("度数" = freqT,
"累積度数" = cumfreqT,
"相対度数" = percentT,
"累積相対度数" = cum.pcntT,
"有効相対度数" = percent,
"有効累積相対度数" = cum.pcnt)
return(output)
}こうして新関数として定義した後で，その関数に Q1 や Q2 を引数として与えると以下の様になる。
freq.table(d01$Q1) 度数 累積度数 相対度数 累積相対度数 有効相対度数 有効累積相対度数
1 25 25 0.200 0.200 0.2083333 0.2083333
2 17 42 0.136 0.336 0.1416667 0.3500000
3 35 77 0.280 0.616 0.2916667 0.6416667
4 30 107 0.240 0.856 0.2500000 0.8916667
5 13 120 0.104 0.960 0.1083333 1.0000000
<NA> 5 125 0.040 1.000 NA NAfreq.table(d01$Q2) 度数 累積度数 相対度数 累積相対度数 有効相対度数 有効累積相対度数
1 25 25 0.200 0.200 0.2336449 0.2336449
2 17 42 0.136 0.336 0.1588785 0.3925234
3 35 77 0.280 0.616 0.3271028 0.7196262
4 30 107 0.240 0.856 0.2803738 1.0000000
<NA> 18 125 0.144 1.000 NA NA3 データフレイム中の全変数の度数分布表
実査を行ったら最初に，全ての変数の度数分布表を出力する事が多い。
ここではそれを自動でやってくれるスクリプトを提供しておく。
序に，相対度数を100倍して％表記にし，小数第一位までとする。
# 関数の定義
freq.table <- function (x) {
freq <- table(x)
freqT <- table(x, useNA = "always")
percent <- prop.table(freq)
cum.pcnt <- cumsum(percent)
percent <- c(percent, NA)
cum.pcnt <- c(cum.pcnt, NA)
cumfreqT <- cumsum(freqT)
percentT <- prop.table(freqT)
cum.pcntT <- cumsum(percentT)
output <- cbind("度数" = freqT,
"累積度数" = cumfreqT,
"％" = round(percentT*100, 1),
"累積％" = round(cum.pcntT*100, 1),
"有効％" = round(percent*100, 1),
"有効累積％" = round(cum.pcnt*100, 1))
return(output)
}# データフレイム中の全変数に対して実行
D00 <- d01 # データフレイムを複写する
str(D00) # これは単なる確認の為で不要。'data.frame': 125 obs. of 5 variables:
$ q1: num 3 5 1 3 4 3 2 4 4 3 ...
$ q2: num 3 1 4 1 1 3 99 1 4 2 ...
$ Q1: int 3 5 1 3 4 3 2 4 4 3 ...
$ Q2: int 3 NA 1 3 4 3 2 4 4 3 ...
$ R2: int 2 NA 4 2 1 2 3 1 1 2 ...for (i in c(1:ncol(D00))) {
print(paste("変数名", names(D00)[i], "の度数分布表"), quote=F)
print(freq.table(D00[, i]))
cat("\n")
}[1] 変数名 q1 の度数分布表
度数 累積度数 ％ 累積％ 有効％ 有効累積％
1 25 25 20.0 20.0 20.0 20.0
2 17 42 13.6 33.6 13.6 33.6
3 35 77 28.0 61.6 28.0 61.6
4 30 107 24.0 85.6 24.0 85.6
5 13 120 10.4 96.0 10.4 96.0
99 5 125 4.0 100.0 4.0 100.0
<NA> 0 125 0.0 100.0 NA NA
[1] 変数名 q2 の度数分布表
度数 累積度数 ％ 累積％ 有効％ 有効累積％
1 41 41 32.8 32.8 32.8 32.8
2 30 71 24.0 56.8 24.0 56.8
3 20 91 16.0 72.8 16.0 72.8
4 27 118 21.6 94.4 21.6 94.4
99 7 125 5.6 100.0 5.6 100.0
<NA> 0 125 0.0 100.0 NA NA
[1] 変数名 Q1 の度数分布表
度数 累積度数 ％ 累積％ 有効％ 有効累積％
1 25 25 20.0 20.0 20.8 20.8
2 17 42 13.6 33.6 14.2 35.0
3 35 77 28.0 61.6 29.2 64.2
4 30 107 24.0 85.6 25.0 89.2
5 13 120 10.4 96.0 10.8 100.0
<NA> 5 125 4.0 100.0 NA NA
[1] 変数名 Q2 の度数分布表
度数 累積度数 ％ 累積％ 有効％ 有効累積％
1 25 25 20.0 20.0 23.4 23.4
2 17 42 13.6 33.6 15.9 39.3
3 35 77 28.0 61.6 32.7 72.0
4 30 107 24.0 85.6 28.0 100.0
<NA> 18 125 14.4 100.0 NA NA
[1] 変数名 R2 の度数分布表
度数 累積度数 ％ 累積％ 有効％ 有効累積％
1 30 30 24.0 24.0 28.0 28.0
2 35 65 28.0 52.0 32.7 60.7
3 17 82 13.6 65.6 15.9 76.6
4 25 107 20.0 85.6 23.4 100.0
<NA> 18 125 14.4 100.0 NA NA