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。