data.table 中的 ifelse 赋值

Question

我是一名教师，希望正确使用＜code＞数据。表在＜code＞R

以下是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))

我的问题在于什么是正确的数据。表在＜code＞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

虽然正确的列计算无误，但还是有些地方不对:例如，当< code >学生b回答问题时，他得到了正确的分数，尽管他回答错误。只有< code>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

我考虑过通过< code > join with < code > question _ table 在< code>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]：

< li >如果< code>X和< code>Y之间的列名不同，请使用< code>on=c(xcol = "ycol "，xcol2 = "ycol2")或在版本1.9.7中使用< code >。(xcol = ycol，xcol2 = ycol2)。 < li> xvar := z只对匹配的< code>X行进行操作。有时，通过=使用< code >也很有用。每个在这里，取决于在< code>Y中每个匹配多少行< code>X,以及< code>z的表达式有多复杂。

请参阅＜代码＞？数据有关语法的完整文档，请参见表。