R语言处理CSV文件的字符串逻辑判断与嵌套if语句实现问题

问题1：字符串参与逻辑判断报语法错误解决 #

报错核心原因是R4.0以前版本read.csv默认会把字符串列转换为因子（factor）类型，因子和字符串直接对比会触发类型错误，两种修复方案二选一即可：

• 读CSV时添加参数禁用字符串转因子：

data <- read.csv("你的文件路径.csv", stringsAsFactors = FALSE)

• 判断时先将取值转为字符类型：

if (as.character(data[i,7]) == "Success")

问题2：字符串相等判断计算结果错误解决 #

排除上面的因子类型问题后，计算错误基本都是字符串首尾存在空白符（空格、换行、制表符）导致的，判断前调用trimws()函数去掉首尾空白即可正常使用==/!=逻辑运算符：

# 去掉两个字段的首尾空白后再对比
if(trimws(data[i,1]) == trimws(data[i,4])) {
  score = score+1
}

问题3：完整嵌套if实现需求算法 #

以下是可直接运行的完整代码，兼容不同R版本，同时处理了类型和空白符问题：

# 读取CSV文件
data <- read.csv("你的文件路径.csv", stringsAsFactors = FALSE)
# 初始化总得分为0
score <- 0
# 遍历所有行，用nrow(data)自动适配总行数，不用写死范围
for (i in 1:nrow(data)) {
  # 提前预处理状态字段
  condition <- trimws(as.character(data[i,7]))
  if (condition == "Success") {
    # Success分支：三个匹配条件分别判断，每个符合加1分，最多加3分
    if (trimws(data[i,1]) == trimws(data[i,4])) {
      score <- score + 1
    }
    if (trimws(data[i,2]) == trimws(data[i,5])) {
      score <- score + 1
    }
    if (trimws(data[i,3]) == trimws(data[i,6])) {
      score <- score + 1
    }
  } else if (condition == "Failure") {
    # Failure分支：按需求的elif逻辑，命中第一个不匹配条件即加1分，后续不再判断
    if (trimws(data[i,1]) != trimws(data[i,4])) {
      score <- score + 1
    } else if (trimws(data[i,2]) != trimws(data[i,5])) {
      score <- score + 1
    } else if (trimws(data[i,3]) != trimws(data[i,6])) {
      score <- score + 1
    }
    # 若需要Failure分支每有一个不匹配就加1分，将上方的else if全部改为if即可
  }
}
# 输出最终得分
print(score)

小提示：如果列位置可能变动，建议用列名代替索引取值，比如data[i,"condition"]代替data[i,7]，可避免列顺序调整后代码出错。

内容的提问来源于stack exchange，提问作者gokgok