如何使用for循环与elseif将R数据框的地震震级变量按区间分类

• 语法结构错误：else 代码块被错误嵌套在else if的大括号内部，条件判断逻辑完全紊乱。
• 赋值缺少行索引：每次赋值直接操作整列query2020$magVar，没有指定行索引[i]，整列值会被每次循环的结果覆盖，最终全列等于最后一次循环的赋值结果。
• 分组边界遗漏：原有条件没有覆盖mag=3.5和mag=4的情况，3.5既不满足<3.5也不满足>3.5，会直接进入else分支赋值为3，这是全列返回3的直接诱因。
• 数据框名大小写不一致：声明的数据框名为Query2020，代码中使用的是小写开头的query2020，如果环境中没有小写同名对象也会引发报错。

# 先初始化分组变量，避免循环中动态扩容影响效率
Query2020$magVar <- NA

for (i in 1:nrow(Query2020)) {
  if (Query2020$mag[i] < 3.5) {
    # 3-3.5分组（不含3.5）
    Query2020$magVar[i] <- 1
  } else if (Query2020$mag[i] >= 3.5 & Query2020$mag[i] < 4) {
    # 3.5-4分组（含3.5，不含4）
    Query2020$magVar[i] <- 2
  } else {
    # 4+分组（含4）
    Query2020$magVar[i] <- 3
  }
}

用你提供的示例震级向量测试：

Mag <- c(3, 3.4, 3.6, 3.7, 3.8, 5, 4, 3.5)
Query2020 <- data.frame(mag = Mag)
# 运行上述循环后得到的magVar结果为：1 1 2 2 2 3 3 2，完全符合分组要求

R内置的cut函数可以更简洁完成分组，无需手动写循环：

Query2020$magVar <- as.integer(cut(Query2020$mag, 
                                   breaks = c(-Inf, 3.5, 4, Inf),
                                   labels = c(1, 2, 3)))

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