ifelse assignment in data.table

Question

私は先生です。Rにdata.tableパッケージを正しく使用して、生徒の回答を自動的にログファイルに格付けします。具体的に質問に答えた場合はcorrectという列を追加してください。その質問に対する正解であり、そうでない場合は0です。それぞれの質問は1つだけの答えを持っている場合、私は簡単にこれを行うことができますが、私は質問が複数の可能な答えを持っている場合（質問とその可能正解は別のテーブルに格納されている）までつまずい取得しています以下は

はMWEです：

set.seed(123) 
question_table <- data.table(id=c(1,1,2,2,3,4),correct_ans=sample(1:4,6,replace = T)) 
log <- data.table(student=sample(letters[1:3],10,replace = T), 
        question_id=c(1,1,1,2,2,2,3,3,4,4), 
        student_answer= c(2,4,1,3,2,4,4,5,2,1)) 

私の質問は、私たちが別のテーブルに依存している場合は特に、jでifelseを使用する正しいdata.table方法は何かにありますか？

log[,correct:=ifelse(student_answer %in% 
          question_table[log$question_id %in% id]$correct_ans,1,0)] 

下記のように、質問1と2の両方には複数の可能な正解があります。

> question_table 
    id correct_ans 
1: 1   2 
2: 1   4 
3: 2   2 
4: 2   4 
5: 3   4 
6: 4   1 

正しい列はエラーなしで計算されますが、正しくないものがあります。 student bが質問に答えると、彼は間違って答えても正しいスコアを与えられます。 correct列の一部のエントリだけがオフになっています。これは、変数のスコープがどのようになっているのか分からないことがあります。

> log 
    student question_id student_answer correct 
1:  b   1    2  1 
2:  c   1    4  1 
3:  b   1    1  1 <- ? 
4:  b   2    3  0 
5:  c   2    2  1 
6:  b   2    4  1 
7:  c   3    4  1 
8:  b   3    5  0 
9:  a   4    2  1 <- ? 
10:  c   4    1  1 

私はquestion_tableとINGのjoinによってlogテーブル内の正しいANSとヘルパーの列を作ると考えられますが、キーは、後者では一意ではないので、それは動作しません。

何かすべてのヘルプは高く評価されます。 ありがとうございます。

Answer 1

ジョイン使用することができます。

# initialize to zero 
log[, correct := 0L ] 

# update to 1 if matched 
log[question_table, on=c(question_id = "id", student_answer = "correct_ans"), 
    correct := 1L ] 

    student question_id student_answer correct 
1:  b   1    2  1 
2:  c   1    4  1 
3:  b   1    1  0 
4:  b   2    3  0 
5:  c   2    2  1 
6:  b   2    4  1 
7:  c   3    4  1 
8:  b   3    5  0 
9:  a   4    2  0 
10:  c   4    1  1 

をどのように動作します。更新のための構文は参加X[Y, on=cols, xvar := z]です：COL名はXとY間で異なる

• 場合は、バージョン1.9.7+、.(xcol = ycol, xcol2 = ycol2)で、on=c(xcol = "ycol", xcol2 = "ycol2")を使用しますか。
• xvar := zは、一致するXの行でのみ動作します。場合によっては、by=.EACHIを使用すると便利です。Xの行数はそれぞれYに一致し、zの式はどれほど複雑ですかによって異なります。

構文の詳細については、?data.tableを参照してください。