r - 将 的变量与解向量进行比较

Question

我面临以下问题。我有一个包含多个问题的测试，受试者的答案记录在变量 Q1 到 Q3 中(实际上我还有更多问题)

test <- tibble(
  Q1 = c(4, 5, 6), 
  Q2 = c(3, 2, 1),  
  Q3 = c(4, 1, 3))

我将问题 1、2 和 3 的正确答案放在一个向量中

correct_answers <- c(4,2,3)

现在我要创建一个新变量来计算每个主题的正确答案数。我的猜测是它与 map2 函数一起工作，但我不知道如何。

Answer 1

我们可以在 base R 中创建一个逻辑矩阵然后做 rowSums计算正确答案的数量

test$newCol <- rowSums(test == correct_answers[col(test)])

或使用 tidyverse , 使用 map2与 reduce在数据集中创建一个“newCol”

library(tidyverse)
test %>% 
      mutate(newCol = map2(., correct_answers, `==`) %>% 
                       reduce(`+`))