如何评分考试成绩

Question

我的df是：

--ID   Q1 Q2 Q3 Q4 Q5 Q6 Q7 
1 112   A  B  C  D  A  D  C
2 222   E  B  C  A  A  D  C
3 342   D  C  C  A  D  C  D
4 454   A  B  D  E  C  B  A
5 554   A  A  C  A  A  D  D
6 136   B  A  D  A  E  D  A

我有我的解决方案：

solution= c(0, A, B, C,A, D, D, A)

我想知道是否有score函数可以用来查看他们与解决方案相比有多少正确答案。

Answer 1

我们可以在创建逻辑矩阵后尝试rowSums

rowSums(df[-1] == solution[col(df[-1])])
#1 2 3 4 5 6 
#4 4 3 3 4 3 

数据

solution <-  c('A', 'B', 'C','A', 'D', 'D', 'A')