ifelse赋值data.table

Question

我是一名教师，并且想要正确使用data.table包中的R来自动将学生答案记入日志文件中，即如果学生回答某个特定问题时添加一个名为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)) 

我的问题在于什么是正确data.table使用ifelse的方法j，尤其是如果我们依赖于另一个表？

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 

我认为通过join与荷兰国际集团question_table与制作在log表中的正确答一个辅助列，但是，这并不工作，因为关键不在于后者是独一无二的。

任何和所有帮助，将不胜感激。 在此先感谢。

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]：

• 如果山坳名X和Y之间的不同，使用on=c(xcol = "ycol", xcol2 = "ycol2")或在1.9.7+版本，.(xcol = ycol, xcol2 = ycol2)。
• xvar := z只会对匹配的行X进行操作。有时，这里使用by=.EACHI也很有用，具体取决于Y中的每个匹配X多少行以及z的表达式有多复杂。

有关语法的完整文档，请参阅?data.table。