R代码运行报unexpected '}'错误及多条件if判断优化咨询

报错原因 #

你遇到的unexpected '}'报错并非括号未闭合导致，是代码存在两个核心语法错误触发了语法解析异常：

• R中逻辑相等判断必须使用双等号==，你所有if条件中误用了赋值用的单等号=，导致解析逻辑混乱
• 循环中你直接调用df3$state获取的是整列向量，if条件仅支持单个逻辑值输入，需要补充循环下标[i]取对应行的州名
• 冗余的paste()函数无实际作用，可以直接删除

同区域合并判断的循环实现 #

你可以用%in%运算符将同一区域的所有州合并到单个if条件中，代码如下：

# 初始化Zone列
df3$Zone <- NA
for(i in 1:nrow(df3)){ 
  current_state <- df3$state[i]
  if(current_state %in% c("Kerala", "Karnataka", "Goa")){
    df3$Zone[i] <- "SW"
  } else if(current_state %in% c("Maharashtra", "Gujarat")){
    df3$Zone[i] <- "NW"
  } else if(current_state %in% c("Tamilnadu", "Andhra Pradesh", "Pondicherry")){
    df3$Zone[i] <- "SE"
  } else if(current_state %in% c("Orissa", "West Bengal")){
    df3$Zone[i] <- "NE"
  }
}
df3.1 <- df3

更简洁的向量化实现（无需循环） #

R中针对列操作优先使用向量化运算，效率更高、代码更易维护：

# 定义州-区域映射规则
zone_mapping <- c(
  Kerala = "SW",
  Karnataka = "SW",
  Goa = "SW",
  Maharashtra = "NW",
  Gujarat = "NW",
  Tamilnadu = "SE",
  "Andhra Pradesh" = "SE",
  Pondicherry = "SE",
  Orissa = "NE",
  "West Bengal" = "NE"
)
# 批量匹配赋值
df3$Zone <- zone_mapping[df3$state]
df3.1 <- df3

内容的提问来源于stack exchange，提问作者Sajna v.h