查找R代码以根据同一行中包含的一系列可能值对行中的变量求和

# 创建一个包含可能值对的数据框
data <- data.frame(var1 = c(1, 2, 3, 4),
                   var2 = c("A", "B", "A", "B"))

# 定义要查找的值对
target_value1 <- 2
target_value2 <- "A"

# 初始化求和变量
sum_result <- 0

# 遍历数据框的每一行
for (i in 1:nrow(data)) {
  # 检查当前行是否包含目标值对
  if (data[i, "var1"] == target_value1 && data[i, "var2"] == target_value2) {
    # 将满足条件的变量值加到求和结果中
    sum_result <- sum_result + data[i, "var1"]
  }
}

# 输出求和结果
print(sum_result)