r - R で欠落している因子の組み合わせの処理

Question

したがって、次のような2つの要素と1つの数値変数を持つデータフレームがあります。

したがって、f1 のレベルは 1 と 2 であり、f2 のレベルは A と B です。ここでは、f1=1 かつ f2=B の場合に入力される値はありません (つまり、D$V1[D$f1=1 & D$f2=B] はありません) 実際には、これはゼロのはずです。

実際のデータフレームには、11 レベルの f1 と 150 レベル近くの f2 があり、データフレームにない f1 と f2 のすべての組み合わせに対して v1=0 で観測を作成する必要があります。

どうすればこれを行うことができますか？

前もって感謝します、

イアン

score 12 · Accepted Answer

データの使用:

dat <- data.frame(f1 = factor(c(1,2,2)), f2 = factor(c("A","A","B")),
                  v1 = c(23,45,27))

1 つのオプションは、レベルの組み合わせでルックアップテーブルを作成することです。これは、expand.grid()以下に示すように、両方の因子のレベルで提供される関数を使用して行われます。

dat2 <- with(dat, expand.grid(f1 = levels(f1), f2 = levels(f2)))

merge()次に、参照テーブルのすべての値が結合に含まれるように指定する関数を使用して、データベースのような結合操作を実行できます ( all.y = TRUE)

newdat <- merge(dat, dat2, all.y = TRUE)

上記の行は以下を生成します。

> newdat
  f1 f2 v1
1  1  A 23
2  1  B NA
3  2  A 45
4  2  B 27

ご覧のとおり、欠落している組み合わせにはNA欠落度を示す値が与えられています。NAこれらのをに置き換えるのは非常に簡単0です。

> newdat$v1[is.na(newdat$v1)] <- 0
> newdat
  f1 f2 v1
1  1  A 23
2  1  B  0
3  2  A 45
4  2  B 27

score 4 · Accepted Answer

ソリューションを追加してtidyr、広げてfill=0収集します。

library(tidyr)
df %>% spread(f2, v1, fill=0) %>% gather(f2, v1, -f1)

#  f1 f2 v1
#1  1  A 23
#2  2  A 45
#3  1  B  0
#4  2  B 27

同様に行うことができますdf %>% spread(f1, v1, fill=0) %>% gather(f1, v1, -f2)。

3 に答える 3