R语言含多else if的for循环报错：条件长度大于1问题

核心报错原因 #

你遇到的the condition has length >1错误，是因为if语句里的条件返回了布尔向量（长度等于数据框行数），但R的基础if只能处理长度为1的布尔值。另外代码还有几个关键问题：

• 循环for (i in dados)是遍历数据框的列，不是逐行处理，逻辑完全错误
• 把坐标值用双引号括起来当成字符串比较，数值比较应该去掉引号
• 赋值时直接给整个dados$neighbourhood列赋值，会覆盖所有行结果
• 最后一个条件里的列名拼写错误：neigbourhod应该是neighbourhood

修正后的代码方案 #

推荐用向量化操作（R的最优写法，避免低效循环），以下两种方式任选：

方式1：基础R写法

# 先确保坐标是数值型（如果原本是字符型的话）
dados$latitude <- as.numeric(dados$latitude)
dados$longitude <- as.numeric(dados$longitude)

# 初始化列
dados$neighbourhood <- NA

# 按区域逻辑赋值
dados$neighbourhood[dados$latitude >= 55.84 & dados$latitude <= 55.95 & 
                     dados$longitude >= -3.444 & dados$longitude <= -3.198] <- 1

dados$neighbourhood[dados$latitude >= 55.84 & dados$latitude <= 55.95 & 
                     dados$longitude >= -3.198 & dados$longitude <= -3.058] <- 2

dados$neighbourhood[dados$latitude >= 55.95 & dados$latitude < 56.01 & 
                     dados$longitude >= -3.444 & dados$longitude <= -3.198] <- 3

dados$neighbourhood[dados$latitude >= 55.95 & dados$latitude < 56.01 & 
                     dados$longitude >= -3.189 & dados$longitude <= -3.058] <- 4

方式2：dplyr包的case_when（更简洁）

如果安装了dplyr包，这个写法可读性更强：

library(dplyr)

dados <- dados %>%
  mutate(
    latitude = as.numeric(latitude),
    longitude = as.numeric(longitude),
    neighbourhood = case_when(
      latitude >= 55.84 & latitude <= 55.95 & longitude >= -3.444 & longitude <= -3.198 ~ 1,
      latitude >= 55.84 & latitude <= 55.95 & longitude >= -3.198 & longitude <= -3.058 ~ 2,
      latitude >= 55.95 & latitude < 56.01 & longitude >= -3.444 & longitude <= -3.198 ~ 3,
      latitude >= 55.95 & latitude < 56.01 & longitude >= -3.189 & longitude <= -3.058 ~ 4,
      TRUE ~ NA_real_ # 不符合条件的行设为NA
    )
  )

关键注意点 #

• 必须确保latitude和longitude是数值型，字符串比较会按字符顺序判断（比如"55.9"会被认为比"55.84"小，完全不符合坐标逻辑）
• 向量化操作比循环高效得多，尤其是数据量大的时候
• 注意区间边界的重叠问题（比如longitude=-3.198的行，会被第一个条件匹配，若需要调整边界可修改比较符号）

内容的提问来源于stack exchange，提问作者Maria Lourenço