R 创建对多个正确答案求和的新数据框列

我的数据框包含我的学生在在线考试/测试中提供的回答，我想得到一些帮助来分析其中一个问题。 解释问题的结构有点棘手，但我会尽全力。 每个参与者被分为两种天气情景（从5种可能情景中随机选择：风暴、风、持续、潮湿和干旱）

然后，他们被要求说明6种不同的旅行技巧是否适用于他们的两种情景。为简化起见，旅行技巧为（滑槽、李、早期、Wait48、Solar&Conn）

所有学生都被要求说明每种旅行技术在每种天气情况下的适用性，他们必须在其中选择：NA）不知道0）不适用1）有点适用2）高度适用

对于5种天气情况中的每一种情况，有1种旅行技术是高度适用的，除了潮湿天气，有2种技术是高度适用的

正确且高度适用的答案如下： 风暴：Wait48，风：Lee，持续：Conn，湿：Early&Solar，Ldry：斜槽

这里我想问的是，我如何在我的DF中创建一个新的列，它记录每个学生（每行）是否没有一个“高度适用”的正确答案，是1个正确答案，还是2个正确答案

# Example results table
# Note the numbers relate to the student's 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 

#示例结果表
#请注意，这些数字与学生的回答相关，如下所示：
#0=不适用，1=略微适用，2=高度适用，NA=
不知道
Weatherscene1$感兴趣的芬菲舍尔，你的DF是什么样子的？到目前为止，你只给了我们向量。所有这些列都是吗？
Loose
和
Ldry
一样吗？嗨，斯文和安东尼奥斯克，我在上面的数据框中添加了，我编辑了文本，确实Ldry和Loose是一样的，他们现在都说Ldry$interestedfinnfisher，你的DF是什么样子的？到目前为止，你只给了我们向量。所有这些列都是吗？
Loose
与
Ldry
相同吗？嗨，斯文和安东尼奥斯克，我在上面的数据框中添加了，我编辑了文本，确实Ldry和Loose是相同的，他们现在都说Ldry