年齢と婚姻状況別に個人の頻度を計算する必要があるため、通常は次のようにします。
table(age, marital_status)
しかし、データのサンプリング後、各個人の重みは異なります。これを頻度表に組み込むにはどうすればよいでしょうか?
ベストアンサー1
svytable
パッケージsurvey
、またはwtd.table
の関数を使用できますrgrs
。
編集 : rgrs
は次のように呼ばれるようになりましたquestionr
:
df <- data.frame(var = c("A", "A", "B", "B"), wt = c(30, 10, 20, 40))
library(questionr)
wtd.table(x = df$var, weights = df$wt)
# A B
# 40 60
以下でも可能ですdplyr
:
library(dplyr)
count(x = df, var, wt = wt)
# # A tibble: 2 x 2
# var n
# <fctr> <dbl>
# 1 A 40
# 2 B 60