跨列识别模式并汇总分数

Question

我希望跨列检测 2s 的特定模式，提供总共 2 个，每个学生 (Ids) 在 2 个问题中答对了多少。

要求学生说明 6 种旅行技术（Chute、Lee、Early、Wait48、Solar 和 Conn）中的哪一种非常适用于 5 种天气场景。

正确答案是： Storm-Wait48、Wind-Lee、Persistent-Conn、Wet-Early & Solar、Ldry-Chute

如果学生按照上述关键点正确识别出高度适用的策略（用数字 2 表示），他们应该得到 1 分。如果他们在这两种情况下都这样做，他们应该得到 2 分。

# Note: the numbers relate to the student's selected responses as follows:
# 0= Not applicable, 1= Somewhat Applicable, 2= Highly applicable, NA = 
Don't know
WeatherScen1 <- c('storm', 'persistent', 'wet', 'wet', 'storm', 'wind', 
'Ldry')
Solar1 <- c(0, 1, 2, 0, 0, NA, 2)
Conn1 <- c(1, 2, 0, 2, 0, NA, 1)
Chute1 <- c(1, 1, 1, 2, 2, NA, 1)
Early1 <- c(0, 1, 2, 1, 1, NA, 2)
Wait481 <- c(2, 0, 0, 2, 1, NA, 2)
Lee1 <- c(1, 1, 1, 0, 1, NA, 1)
WeatherScen2 <- c('wet', 'wet', 'wind', 'storm', 'Ldry', 'storm', 
'persistent')
Solar2 <- c(2, 2, 0, 0, 0, 1, 0)
Conn2 <- c(0, 0, 1, 1, 0, 1, 2)
Chute2 <- c(1, 1, 1, 1, 1, 1, 1)
Early2 <- c(2, 2, 1, 1, 1, 1, 0)
Wait482 <- c(0, 0, 1, 1, 1, 2, 0)
Lee2 <- c(1, 1, 2, 1, 1, 1, 0)

WeatherScenResp <- data.frame(WeatherScen1, Solar1, Conn1, Chute1, Early1, 
Wait481, Lee1, WeatherScen2, Solar2, Conn2, Chute2, Early2, Wait482, Lee2)
View(WeatherScenResp)

Id WeatherScen1 Solar1 Conn1 Chute1 Early1 Wait481 Lee1... 
1  Storm        0      1     1      0      2       1   ... 
2  Persistent   1      2     1      1      0       1   ... 
3  Wet          2      0     1      2      0       1   ...
4  Wet          0      2     2      1      2       0   ... 
5  Storm        0      0     2      1      1       1   ... 
6  Wind         NA     NA    NA     NA     NA      NA  ... 
7  Ldry         2      1     1      2      2       1   ... 


...WeatherScen2 Solar2 Conn2 Chute2 Early2 Wait482 Lee2
...Wet          2      0     1      2      0       1
...Wet          2      0     1      2      0       1
...Wind         0      1     1      1      1       2
...Storm        0      1     1      1      1       1
...Ldry         0      0     1      1      1       1
...Storm        1      1     1      1      2       1
...Persistent   0      2     1      0      0       0 

如何创建一个名为“TotalCorrect”的附加列，它会为学生 1 2 和 3 显示 2 分，为学生 4 和 5 显示 0 分，为学生 6 和 7 显示 1 分？

非常感谢您的帮助

Answer 1

使用我编造的数据，我可以向您展示原理：

# create dataframe
df <- data.frame(ID = 1:7, A1 = sample(0:2, 7, T), A2 = sample(0:2, 7, T))

#  ID A1 A2
#1  1  1  0
#2  2  0  2
#3  3  2  1
#4  4  2  0
#5  5  2  0
#6  6  1  2
#7  7  2  1

现在遍历每一行并计算 2 的数量（第一列除外）

df$Count_2 <- apply(df[, -1], 1, function(x) length(x[x==2]))

这将遍历每一行并获得 2 的确切数量。然后您可以将此列除以 2 以获得点值，因为每个 2 指针值 1 点：

df$points <- df$Count_2/2

这是否符合您的要求？

编辑：

正如 akrun 在 cmets 中指出的那样，rowMeans(df[-1] == 2) 是比 apply 函数更好的方法。